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Editorial- 

EL AFIANZAMIENTO 
DE UN ESTANDAR 



Mal nos pese debido a una inexcusable 
rutina por parte del mercado y a una no 
menos excusable falta de objetividad de 
ciertos medios informativos, el MSX ha 
sido en este país el «gran desconocido» 
de los estándares microinformáticos. 
Desde nuestra posición como editores, 
hemos podido observar y sentir la afir- 
mación precedente, pues aún hay mu- 
chos que no acaban de creerse las extra- 
ordinarias posibilidades del sistema y 
sobre todo su indiscutible compatibili- 
dad. Ello ha motivado que muchos fa- 
bricantes e importadores de software 
sintieran un cierto resquemor hacia lo 
que a MSX oliera. Sin embargo, por fin 
los propios fabricantes e importadores 
han reconocido la necesidad de hacer 
frente común y dar a conocer de forma 
plena las posibilidades a las que hemos 
aludido. Un primer paso ha sido esta 
campaña institucional en la prensa dia- 
ria que ha de abrir los ojos a muchos 
futuros usuarios. Y ahora de la mano 
de Manhattan Transfer, fabricantes e 
importadores nos disponemos juntos a 
dar el segundo paso, en ese caso de gi- 
gante, en tal sentido. Por ello organiza- 
do por la revista MSX EXTRA y su 
hermana MSX CLUB DE PROGRA- 
MAS, dentro del marco de Sonimag'86 
van a celebrarse las Primeras Jornadas 
Españolas del MSX, con el ánimo de 
dar a conocer masivamente nuestro es- 
tándar. En ellas pretendemos que cola- 
boren todos aquellos que a través del 
MSX se han iniciado o perfeccionado 
en el campo de programación. Mesas 
redondas, seminarios especializados, 
conferencias y demás actos van a cons- 
tituir el meollo de estas reuniones de 
trabajo, gracias a las cuales pretende- 
mos conseguir del MSX lo que sus 
inventores pretendieron, convertirlo, 
como ya hemos advertido cientos de 
veces, en un estándar universal. Por 
ello una vez más queremos desde esta 
tribuna pedir la colaboración de nues- 
tros lectores, de los fabricantes de soft- 
ware para que colaboren con sus ideas, 
en este ambicioso proyecto que no du- 
damos ha de redundar en el beneficio 
de todos. Como siempre Manhattan 
Transfer está abierta a cuantas suge- 
rencias nos hagáis, esperamos sincera- 
mente vuestra inestimable colabora- 
ción. Gracias a todos anticipadamente. 

MANHATTAN TRANSFER 
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Línea directa i 




RADIO TELETIPO 



Referente a la carta de José 
Manzanos Alesanco de Vi- 
toria relacio nado con el 
morse y el RTTY, les diré 
que no conozco ningún soft- 
ware con todas las funciones 
que pide. En estos momen- 
tos estoy trabajando para 
conseguirlo, pero aún no 
domino lo suficiente el len- 
guaje como para tener bue- 
nos resultados. Lo único que 
he conseguido es sacar una 
señal de radiofrecuencia 
(RF) de mi MSX y llevarla 
hasta el emisor/receptor, lo- 
grando excitar la emisión. 
Esto significa que con los 
MSX es posible lograr lo que 
quiere José, pero hay que es- 
tudiar más el problema. Mi 
número de radioaficionado 
es EA3-EXA. 

Manuel Pérez 
(Barcelona) 

Pues, a seguir trabajando. 



MSX-DOS 



El sistema operativo MSX- 
DOS que utilizan las unida- 
des de disco MSX ¿pueden 
leer discos del IBM PC con 
algún programa de utilidad 
especial? Al mismo tiempo 
les sugiero que incluya en 
Monitor al día, comentarios 
de juegos. 

Héctor Martín Pérez 
(Tenerife) 

Entre el MSX-DOS y el MS- 
DOS existe una compatibili- 



dad de formatos de graba- 
ción de disco. Esto quiere de- 
cir, que si conectamos una 
unidad de disco de 5,14" de 
un IBM PC a un equipo 
MSX, podemos leer sin nin- 
gún tipo de modificación, el 
directorio y los archivos de 
cualquier disco grabado en el 
IBM PC en MS-DOS. Al 
respecto te recomendamos la 
lectura de las entrevistas he- 
chas Mitsubishi, Sony y Phi- 
lips en el número de abril. 



USO DE MANDOS 

Quisiera saber cómo se pue- 
den introducir joysticks en 
todos los programas, ya que 
casi todos están hechos para 
usar con cursor y es un en- 
gorro. 

Juan A. Romero 

En diferentes ocasiones ya 
hemos publicado el modo de 
conseguirlo a través de la 
orden STICK (1). Te reco- 
mendamos la lectura de "A 
la orden de mando" (MSX 
CLUB n" 5), LINEA DI- 
RECTA (MSX CLUB tf 6). 



CARTUCHO DE AMPLIACION 

Tengo un Sony HB55P con 
el cartucho de ampliación de 
64K y mi pregunta es si al 
utilizar una Bee Card o un 
cartucho ROM debo retirar 
del otro conector el cartucho 
de ampliación. 

Jordi Pau 
Tabernes Blanques 
(Valencia) 

No, no es necesario que lo re- 
tires ya que la ampliación no 
afecta a la ROM. 



CONSEJOS UTILES 

Mi carta es para aconsejar a 
los usuarios de ordenadores 
que no coloquen sus graba- 
doras de datos cerca de la 
pantalla del televisor o del 
monitor, ya que el campo 
magnético creado por estos 
afecta la grabación de datos, 



máxime si el aparato emplea- 
do contiene algún dispositi- 
vo de sintonización de ra- 
diofrecuencia. Del mismo 
modo, colocar las cintas gra- 
badas encima de los disposi- 
tivos anteriores, acabaría al 
cabo del tiempo, modifican- 
do los datos guardados en su 
interior. 

Javier J. Zurbano Reinares 
(Logroño) 

Seguramente muchos lecto- 
res agradecerán tus consejos. 





VARIAS PREGUNTAS 

Quiero que sepáis que me 
habéis sido de gran ayuda 
para empezar en el fantástico 
mundo de los ordenadores. 
Ahora quiero que me con- 
testéis a varias preguntas. 

- ¿Cuánto cuesta una am- 
pliación de memoria de 
64K? 

- ¿En qué línea del progra- 
ma Jet Monster esta la orden 
CLEAR 2000? 

- ¿Krypton y U-Boot sir- 
ven para el Sony HB55P? 

Ángel Vicente 
(Zaragoza) 

La ampliación de memoria 

de 64K te puede costar entre 

9000 y 18000 pts. 

En la línea 20 de Jet Monster 

se da la instrucción CLEAR 

2000 

Krypton y U-Boot son pro- 
gramas para 32Ky el HB55P 
es de 16K. 



0UICKSH0T I 



Quiero información sobre el 
QUICKSHOT I MSX pu- 
bicado en el mes de marzo y 
también donde puedo con- 
seguirlo, ya que en mi pue- 
blo no lo tienen. 

Antonio Salazar Ruiz 
Sta. Margarida i els Monjos 

Este joystick lleva el sello de 
Spectravídeo y es muy versá- 
til y blando en su manejo. Si 
no lo consigues en la tienda 
de tu pueblo puedes solicitar- 
lo a SVI España, Constitu- 
ción 260, Torre jón de Ardoz 
(Madrid). 



FORMAR UN CLUB 

Soy un chico de 16 años fas- 
cinado por el mundo de la 
informática y me gustaría 
tomar la iniciativa para for- 
mar un club de MSX. Den- 
tro este club además de 
intercambiarnos programas 
hechos por los mismos so- 
cios también sería interesan- 
te disponer de programas 
adquiridos. Claro que el gas- 
to que supone comprar el 
software está muy por enci- 
ma de mis posibilidades, por 
ello les pido que me aconse- 
jen o me faciliten la adquisi- 
ción. 

José Carlos Camacho Pérez 
c/Larga 52 Bonares 
(Huelva) 

El camino más corto es que 
te pongas en contacto con 
otros usuarios de Bonares y 
juntos organicen el club. La 
adquisición de software, una 
vez reunidos varios usuarios, 
se hará más fácil, ya que 
unos podrán comprar un car- 



tucho y otros otros, para des- 
pués intercambiarlos. Re- 
cuerda que un club es un 
centro en donde todos deben 
contribuir a su formación. 
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BEE CARD 

Aunque ya existen en el 
mercado algunos juegos co- 
mercializados en Bee Card, 
todavía no he localizado 
ningina tarjeta en formato 
EEP ROM. 
Javier Tamarit Villafraca 
(Madrid) 

Hemos consultado a su dis- 
tribuidora oficial en España 
y nos ha comunicado que por 
el momento, la EEP ROM 
no se comercializará en nues- 
tro país. 



USO DEL DISCO 

Poseo un Philips VG 8010 y 
quisiera saber si con el pue- 
do usar una unidad de disco. 
Además deseo que me indi- 
quen si existe un interface 
que permita colocar más de 
un periférico, las diferencias 
entre un monitor y un tele- 
visor y la compatibilidad en- 
tre MSX-DOS, MS-DOS y 
CP/M. 

David Martínez 
(Barcelona) 

Para usar una unidad de dis- 
co con tu aparato necesitas 
una ampliación de memoria. 
Referente a la interface no 
comprendemos el sentido de 
la pregunta. La diferencia 
entre un televisor y un moni- 



tor esencialmente radica en 
la capacidad del tubo de este 
último para recibir una señal 
más potente y dar una mayor 
definición en pantalla. Sobre 
la compatibilidad del CP/M, 
MS-DOS y MSX-DOS te 
recomendamos la lectura de 
"MSX, UN ESTANDAR 
DEL FUTURO" (MSX 
CLUB n' 13) 



TEST MONOGRAFICO 

Después de haber tecleado 
las correciones al "Acoso en 
Nicaragua" no consigo ju- 
garlo y tampoco me lo solu- 
ciona el Test. También tengo 
problemas con el Test Mo- 
nográfico, ya que en una se- 
rie de líneas el ordenador me 
da una cifra y el Test obra. 



Os rogaría que antes de pu- 
blicar cualquier programa lo 
comprobárais de verdad por 
una cuestión de profesiona- 
lidad, porque si lo hiciérais 
no tendríamos problemas. 

Felipe 
Vigo 

Lamentamos que pongas en 
duda nuestra profesionali- 
dad. Las diferencias entre las 



EL COLMILLO DE DRACULA 



Los textos de las instrucciones de «La mansión de Drácula» no me cuadran. Además en 
la lista de los objetos me falta la segunda línea. También tengo errores en las líneas 1 1 70 
y 2310. 

Félix Navarro 
Sabadell 

El problema que tienes posiblemente se deba a que no has respetado los espacios especifi- 
cados en las instrucciones LOCATE. Por ejemplo en la línea 1170 debes poner LOCATE 
0,1 SPRINT" — dejar 20 espacios en blanco — "y la línea 2310 copiarla tal cual está. Te 
recomendamos emplees el Test de Listado para comprobar tus errores de copia. 



«BUGS» Y CARTAS Y TEST 



Avisamos a nuestros lectores que nos escriben acerca de errores en nuestros programas 
que sus cartas son leídas atentamente y hechas las comprobaciones pertinentes. Sin 
embargo, sólo contestaremos aquéllas que en efecto descubran algún error que debamos 
corregir o que aporten alguna aclaración a los demás lectores. Recordamos que nuestros 
programas llevan su correspondiente Test y que el uso del mismo es imprescindible en 
caso de errores. 



LO PROMETIDO ES DEUDA 



65000 'COPY-3 RUBEN JIMENEZ ( 1986) 

65010 FOR CO!=61000!TO 61256! 

65020 POKECO!,0:NEXT 

65030 BH=":PO!=61000' 

65040 FORL17.=0TO23 

65050 FORCOZ=0TO255 

65060 FORCHZ=7TO0STEP-1 

65070 CLI=POINT(CO:,LIZtB*CHÍ):CFZ=PEEK 

UHF3EA) 

65080 IFCLZOCFXTHENBI$=BI$+"t-ELSEBI$= 
65090 NEXT 

65100 POKEPO ! , VAL ( "JeB" +BI$=" ' : PO ! =P0 ' ♦ 1 

65110 NEXT:PO!=61000' 

65120 LPRINTCHR$Í27);-B"¡CHR$(27);"S"; - 

256' 

65130 FORCO!=61000!TO61256! 

65 1 40 FEZ=PEEK ( CO ) : I FFEZ=9THENFEX=8 

65150 LPRINTCHR$(FEX); 

65160 NEXT 



65170 LPRINT 
651B0 NEXT 

65190 LPRINTCHR$(27);"A':RETURN 



65000 'C0PY-2RUBEN JIMENEZ 

65010 BA=BASE(5):BC=BASE(7):TN=BA+31 

65020 LPRINT CHR$(27);'B';SPACE$(7); 

'« 1" 

65030 FOR LI=1 TO 32 
65040 LPRIMTSPACE$(7);'|"; 
65050 LPRINT CHR$(27);'s"; , 0192' 
65060 FOR C0=TN TO TN+736 STEP32 
65070 BB=(BC+(VPEEK(CO)tB)) 
65080 FOR CH=BB TO BB+7 
65090 LPRINT CHR$(VPEEK(CH)); 
65100 NEXT CH.CO:LPRINT-r;:LPRINT 
65110 TN S TN-1:NEXTLI 

65120 LPRINTSPACE$(7); , < 

";CHR$(27):-A- 



Línea directa ¡ 

cifras que te da el ordenador 
con nuestro Test indican pre- 
cisamente que has copiado 
mal. 



SPRITES MULTICOLORES 



El motivo de mi carta es que 
me expliquéis, a ser posible 
con un ejemplo, cómo hacer 
una subrutina en lenguaje 
máquina que permita usar 
sprites multicolores. 
Miguel Casarejos Come- 
saña. 

La Guardia (Pontevedra) 

Desgraciadamente la prime- 
ra generación de ordenado- 
res MSX sólo permite definir 
SPRITES monocolores. Sin 
embargo, basta superponer 
dos o más de estos SPRITES 
para que obtengas el objeti- 
vo deseado. 



ENSAMBLADOR 



Quisiera que me contestaran 
a las siguientes preguntas: 
— ¿Se pueden poner más 
gráficos además de los 32 
que permite la función 
SPRITES? 

— ¿Cómo puedo hacer que 
no se mezclen los colores en 
instrucciones como DRAW, 
LINE, CIRCLE Y PAINT? 
— En mi ordenador el basic 
se carga automáticamente, 
¿qué instrucción puedo uti- 
lizar para pasar a lenguaje 
ensamblador? Creo que es 
con DEFUSR. ¿Es así? 

Augusto Crueiñes 
Valencia 

— El número máximo de 
SPRITEs visibles simultá- 
neamente es de 32. No obs- 
tante, existen en el mercado 
otros ordenadores que no 
dan la facilidad de emplear 
figuras móviles. En éstos, 
hay que introducir a mano 
los SPRITES en la memoria 
de video y volver a situarlos 
en la nueva posición, borrán- 
dolos previamente. Como 
ves es laborioso, pero puedes 
emplearlo como solución de 
compromiso. 

— La resolución del color, en 
SC RE EN 2, está limitada a 



dos colores por grupo hori- 
zontal de ocho bits. Siendo 
cuidadoso y eligiendo zonas 
de la pantalla contiguas, pero 
separadas, se puede mitigar 
el desagradable efecto de la 
mezcla de los colores en las 
instrucciones que citas. Sin 
embargo, en muchos casos no 
es posible evitarlo. 
— Tu ordenador no posee en- 
samblador incorporado. De- 
berás adquirir uno en cinta o 
en cartucho. 



PON EN HORA TU 
ORDENADOR 

En el programa del n.° 14 
creo que hay un error en la 
línea 10, puesto que yo te- 
cleo: 10 FORA=&HD000 
TO &HD0A1: READ A$: 
READ A&: V=VAL- 
("&H"+A): POKE A,V: 
NEXT y me sale "Out of 
data in 10". He repasado mil 
veces esta línea y siempre me 
sale lo mismo. Por favor, 
decidme el error. 

Antonio Cueto Senra 
Sevilla 

El mensaje "Out of data in 
10" quiere decir que la va- 
riable (A$) que se intenta le- 
er (READ) no está en las lí- 
neas DATA del programa, 
porque, simplemente, se han 
considerado ya todas las va- 
riables. Naturalmente has 
tecleado mal alguna de las 
referidas líneas DATA. Y es 
que no hay ningún motivo 
para que la línea señalada 
con un error sea siempre la 
que realmente está equivo- 
cada. 



FICHEROS EN CINTA 

Mis dudas son: 
— Si a un ordenador de 64K 
como el HB 75-P de SONY 
le pones un cartucho de am- 
pliación de 64K, ¿aumenta la 
memoria libre para el usua- 
rio? 

—He leído que el MSX no 
puede reproducir la voz hu- 
mana, mientras que el 
SPECTRUM o el COM- 
MODORE sí lo pueden ha- 



cer. ¿Cómo es esto posible?, 
pues creo que el chip de so- 
nido del MSX es bastante 
mejor que el de estos dos 
o rde nado res. 

—Después de hacer OPEN "- 
CAS:QUEEN"FOR OUT- 
PUT AS#1, el cassette se 
pone en marcha y graba el 
nombre correctamente, pero 
cuando quiero escribir los 
datos que tengo que man- 
dárselos tres veces para que 
los pase a la grabadora. ¿Por 
qué sucede esto? 

Alfonso Velasco 

— El BASIC de tu ordena- 
dor sólo podrá disponer de 
29K, aunque le pongas un 
cartucho de ampliación. Ten 
presente que, aun sin cartu- 
cho, ya hay una parte de la 
RAM que no se utiliza 
(32K), a menos, claro está, 
que un programa en código 
máquina gestione los dife- 
rentes bancos. De ser así, 
cualauier ordenador MSX 
puede ser ampliado hasta un 
máximo de 100K. Por otra 
parte, el MSX-DOS (sistema 
operativo de disco) y muchos 
programas comerciales hacen 
uso de la RAM inaccesible. 

— En efecto, el chip de so- 
nido A Y-3-8910 del MSX no 
tiene nada que envidiar al 
65581 del COMMODORE 
64 y mucho menos al del 
SPECTRUM. A decir ver- 
dad este último ordenador 
carece incluso de un chip pro- 
pio de sonido y utiliza la uni- 
dad aritmética lógica para 
emitir un ruido de un bit, en 
lugar de los ochos habituales. 
Además, el COMMODO- 
RE no tiene instrucciones en 
BASIC para manejar el soni- 
do. En principio, ninguno de 
estos tres ordenadores está 
capacitado para sintetizar 
voces. No obstante, se inten- 
ta todo lo posible para que 
produzcan un murmullo que 
recuerde vagamente a la voz 
humana y, a decir verdad, 
hay en el mercado algunos 
juegos para MSX que lo ha- 
cen con áerto éxito. 
— Supon que el ordenador 
escribiera inmediatamente 
los datos en el cassette. Al pa- 
rar el motor, la inercia de la 



cinta haría que quedaran 
unos huecos con información 
aleatoria, que imposibilita- 
rían la lectura ulterior. Para 
evitarlo, cana canal abierto 
reserva un buffer de comuni- 
caciones, que almacena tem- 
poralmente los datos hasta 
que se llena, momento en el 
que son grabados junto con 
una nueva cabecera de con- 
trol. Por consiguiente, si 
quieres escribir inmediata- 
mente cierra el fichero con 
CLOSE. 



ACCESO A LA ROM 

Me gustaría saber cómo se 
puede acceder al slot de me- 
moria ROM (no a la copia 
de las variables del sistema 
en RAM), desde el BASIC o 
el código máquina. Si es po- 
sible desearía una pequeña 
explicación o un artículo en 
su revista sobre estos parti- 
culares. 

Miguel Angel Garrido 
Torres 
Sevilla 

Cómo tú bien dices, las va- 
riables del sistema se encuen- 
tran en la RAM, en la parte 
alta de ésta para ser precisos. 
Comprenderás, empero, que 
si se trata de variables no 
pueden ser copia de la ROM, 
puesto que este tipo de me- 
moria es fija e inamovible. 
Pienso que lo que deseas es 
tener información de la es- 
tructura de la ROM y de las 
rutinas contenidas en ella, 
para aprovecharlas en tus 
programas. En este caso, 
consigue un ejemplar de 
nuestro especial dedicado al 
código máquina. Seguro que 
te aclarará todas las dudas. 



COMPATIBILIDAD MSX-2 

Discrepo con la mentada 
compatibilidad del MSX-1 y 
MSX-2. Este aparato es fe- 
nomenal, pero me he decep- 
cionado por su elevado pre- 
cio, por su manual de ins- 
trucciones en inglés y porque 
sólo se puede conectar a mo- 
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nitor o TV que tenga entrada 
RGB. Pero lo más grave es 
que de 100 programas que 
tengo sólo me cargaron 1 7. 
En cuanto a la revista 
MSX-2 que tenéis anunciada 
no vendría mal que publicá- 
rais algún artículo así nos 
vais preparando, pues esta- 
mos perdidos. El ordenador 
que tengo es un Sony HB- 
F500P. 

Antonio Millán San I . Dic- 
terio 

San Sebastián 

En nuestro número anterior 
publicados las principales ca- 
racterísticas de esta segunda 
generación de MSX y su gra- 
do de compatibilidad con la 
primera. El precio de estos 
aparatos se considera bajo en 
relación con las prestaciones 
que ofrece y teniendo en 
cuenta que está dedicado, 
más que al consumo masivo, 
a la utilización en gráficos y 
tratamiento de imagen. Por 
esta razón se hace indispen- 
sable la conexión RGB para 
TV o monitor, ya que la de- 
finición que requiere es tam- 
bién mayor. Los problemas 
del software pueden deberse 
a que, posiblemente, muchos 
programas han sido desarro- 
llados sin que se respeten las 
normas establecidas por Mi- 
crosoft. También puede suce- 
der que al incorporar tu apa- 
rato una unidad de disco ésta 
ocupe algunos ks. necesarios 
para los programas. Prueba 
teclear el mini programa si- 
guiente y ejecútalo antes de 
cargar la cinta. 
10 FOR A = &HFD9A TO 
&HFFF 

20 POKEA,&HC9 
30 NEXT 

40 CLEAR 100,&HF37F 



ANULACION DE UNIDAD DE 
DISCO 



Les escribo para comunicar- 
les que hay una forma más 
sencilla para anular la unidad 
de disco sin tener que desco- 
nectarla y es manteniendo 
pulsada la tecla SHIFT 
mientras encendemos el 
ordenador. Así, me aparecen li 
bres 28,815 bytes. También 
he podido observar que 
manteniendo pulsada CTRL 



mientras encendemos el 
ordenador la memoria libre 
me sube a 24,988 bytes para 
poder operar con disco. Esto 
quiere decir que gano 1,558 
bytes. Lo que no sé es donde 
puede afectar, pero puedo 
decirles que algunos progra- 
mas que antes no me entra- 
ban sí lo hacen con este pro- 
cedimiento. 

Feo. Paez Choquet 
Jerez de la Frontera 
(Cádiz) 

Aparte del método que nos 
indicas y del que nosotros 
publicamos anteriormente y 
que le recomendamos a 
Antonio Millán, también 
puede anularse de la siguien- 
te manera: 

CLEAR 100,&HF37F : 
NEW 



C-64 0MSX 

Hace unos días me compré 
un HB 75P y ha surgido una 
polémica con un amigo que 
tiene un Commodore 64. Se- 
gún él su aparato es más po- 
tente porque tiene en panta- 
lla 38000 bytes y en el mío 
me salen 28815. ¿Cuál es 
mejor de los dos? Les hago 
esta pregunta a pesar de que 
mi amigo dice que ustedes 
dirán que MSX porque para 
eso la revista apoya este sis- 
tema. 

Jesús González 
Oviedo 

Tu amigo tiene razón en 
cuanto a que nosotros te di- 
remos que el MSX es más po- 
tente. Pero no se trata sim- 
plemente de una afirmación 
sino de algo fundamentado. 
Como ya nos ocupamos de 
esta comparación de un mo- 
do muy detallado, te reco- 
mendamos que leas "El 
MSX es mejor", publicado 
en nuestro número 8, de di- 
ciembre pasado. 

INPUTYOPEN'CRT:" 

Me gustaría saber para qué 
sirve la instrucción OPEN 
"CRT:" y qué diferencia 
hay entre LINE INPUT e 
INPUT. 

Guillermo las Heras Acha 
Vitoria 



La instrucáón OPEN 
a CRP:" sirve para que toda 
la información asignada a un 
canal vaya a la pantalla de 
textos (SCREEN 0 ó 1). Su 
utilidad, en algunos casos, es 
considerable. Imagina una 
rutina muy trabajosa que 
disponga los datos de una 
forma determinada para su 
representación. Con sólo 
cambiar una línea, en lugar 
de readaptarlo todo, puede 
hacerse que se escriban datos 
en la pantalla de gráficos, en 
la cinta, en la impresora, en 
el disco, etc.. Comprenderás 
que si un programa da la po- 
sibilidad de elegir el periféri- 
co de salida uno de estos pue- 
de ser perfectamente la pan- 
talla de texto. 

En cuanto a la diferencia 
entre LINE INPUT e 
INPUT te diré que, de en- 
trada, la primera no presenta 
el interrogante característico 
de la segunda. Asimismo, 
INPUT considera que la co- 
ma es un delimitador de 
cualquier cadena alfanumé- 
rica y exhibe el mensaje "Ex- 
tra ignored" cuando encuen- 
tra una de éstas. Además, 



existen muchas ventajas a fa- 
vor de LINE INPUT cuan- 
do de leer archivos en disco 
se trata. 



PROGRAMAS A PARES 

Desearía saber cómo se pue- 
de almacenar un programa 
para que al teclear o al intro- 
ducir otro, sin apagar el 
ordenador, el primero no se 
borre. Si es posible, os ruego 
que me indiquéis la instruc- 
ción a utilizar y cómo volver 
a sacar el primer programa. 
Roberto Vallejo Barbero 
Burgos 

Lamentablemente no existe 
instrucción alguna que reali- 
ce el cometido que tú deseas. 
Sin embargo, tos ordenado- 
res de 64K tienen la posibili- 
dad de almacenar dos pro- 
gramas independientes a la 
vez, si se construye una ruti- 
na en código máquina que 
gestione el cambio de los 
bancos de la memoria. El có- 
mo y el porqué serán anali- 
zados en un próximo capítu- 
lo de la sección "CALL". 



PROTECCION 



Quisiera que me contestaran 
a lo siguiente: ¿qué rutina en 
código máquina hay que ¡in- 
troducir en un listado BA- 
SIC para proteger progra- 
mas y que en el ordenador 
nos aparezca: "MSX system 
versión 1.0", etc., o sea, se 
ponga como al conectarlo? 

Feo. Javier Gamo 
Villacarrillo Qaén) 

Estoy haciendo un progra- 
ma para mi Hit Bit HB-55P 
y quisiera saber que es lo 
que debo hacer para que 
cuando alguien intente ver el 
listado la memoria se borre 
como si pulsáramos el botón 
de reset. 

Andrés Roldan 
Ubeda 

Lo que vosotros proponéis es 
iplemente, llamar alaru 



tina que inicializa el ordena- 
dor. Podéis hacerlo con DE- 
FUSR=0:A = USR(0). Con 
esto conseguiréis lo mismo 
que st se pulsara el botón de 
reset. Sin embargo, debo 
advertiros que el sistema 
operativo no reinicializa to- 
da la memoria, únicamente 
se limita a situar ciertos pun- 
teros claves a su nivel origi- 
nal. Ello es suficiente para 
borrar, aparentemente, un 
programa BASIC, aunque 
realmente sigue estando ahí, 
oculto y esperando a que al- 
guien ponga los "parches 
adecuados en los lugares jus- 
tos, para volver a la luz. Por 
tanto, os sugiero que em- 
pleéis lo que sigue, pues es 
completamente resolutivo: 
POKE&HFD9D,&:HED- 
POKE&HFD9E,&HB8 
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Tablón de anuncios 



Esta sección de MSX CLUB es de nuestros lectores. Todos ellos tienen derecho a dos inserciones totalmente gratuitas. Las 
características de esta sección no permiten la inclusión de anuncios con fines de lucro. Advertimos que la desprotección y 
copia de software original es un acto delictivo perseguido por la ley. 



Vendo ordenador Philips 
VG8000, cartucho de ampliación 
de 16K, cables, 2 libros y uno de 
microprocesadores, revistas, etc. 
Precio a convenir. Javier Tel. 
(952) 803380. CP1. 
Cambio juego MSX sin fin eco- 
nómico. Luis A. de la Fuente Ló- 
pez, c/. Gran Capitán 3-5, 2." Der. 
Salamanca. CPl. 

Intercambio programas MSX en 
cinta y disco de 3.5". Irene Jua- 
rros. C/. Garita 19. 07015 Palma 
de Mallorca. Tel (971) 403659. 
CPl. 

Intercambio programas MSX. 
Jordi Quintana Pamies. Ctra. 
Barcelona, 567, 3.", Sabadell (Bar- 
celona). Sólo Sabadell y alrededo- 
res. CPl. 

Busco programas originales. An- 
drés Blanco. Apdo. 2168. Sabade- 
ll (Barcelona). CPl. 
Intercambio programas. Daniel 
Delgado Segura. C/. Tomás Pérez 
Ubeda, 15, Casas-Ibáñez (Alba- 
cete). Tel. (967) 460003. CPl. 
Intercambio juegos de Konami. 
Juan Antonio López. C/. Riera 
Blanca, 158, 4." 2/ Hospitalet 
(Barcelona). Tel. (93) 4311563. 

Intercambio Knight Lore, High 
Way Star, Zaxxon, etc. por Co- 
mando o Simulador de vuelo. 
Manolo de Sevilla. Tel. 632194. 
CPl. 

Intercambio programas en códi- 
go máquina. Gerónimo López. 
Av. de la Victoria, 10, Dos Her- 
manas (Sevilla). Tel. 724407. CPl. 
Intercambio programas. Andrés 
Fernández Nieto. C/. Menorca, 
24, San Celoni (Barcelona). Tel. 
(93) 8670684. CPl. 
Intercambio programas. Envía- 
me tu cinta y te la devolveré con 
nuevos juegos. Avda. Gaspar 
Aguilar. C/. Costa y Borras, 64, 
5. 46017 Valencia. CPl. 
Vendo HB 55P de Sonv más am- 
pliación de 26 K y regalo tres car- 
tuchos. Precio a convenir. Fer- 
nando de Barcelona. Tel. 
3863019 (17,30 a 23 hs.). CPl. 
Vendo Philips VG 8010 más catá- 
logos y juegos La Pulga y Congo 
Bongo, c/garantía. Precio a con- 
venir. Enrique de Aguilar (Palen- 
cia). Tel. (988) 122886 (14 a 15 y 
20 a 23 hs.). CPl. 
Vendo unidad de disco Toshiba a 
40.000 pts. y ordenador Sony de 
64K a 30.000 pts. Regalo juegos, 
programas y diskettes. Juan Ra- 
món Arrieta. P." de los Olmos, 
3-5. 20016 San Sebastián. Tel. 
(943) 399907. CPl. 
Cambio manuales Sony, intro- 
ducción al MSX BASIC y MSX 
BASIC Manual de referencia p/ 
programac. en italiano por los 
mismos en español. Luis de Ma- 



drid. Tel. (91) 4018907 (21 a 24 
hs.). CPl. 

Cambio 70 programas por un 
cartucho de ampliación a 64 K. 
Alberto Palomares Díaz. M.' 
Auxiliadora, 33, 8" A 37004 Sala- 
manca. CPl. 

Compro cartucho ampliación de 
memoria a 64 K d/HB 101P de 
32K. Antonio Montero Batlle. 
Ciudad Cooperativa 49 5." 2.' San 
Boi (Barcelona) Tel. (93) 
6521694. CPl. 

Cambio todo tipo de programas 
p/Spectravídeo 318/328. Mandar 
lista a José Muñiz c/M. Hermida 
72 P. 15B 39009 Santander. Tel. 
(942) 372610. CPl. 
Vendo unidad de disco Philips 
VY0010 impecable, c/programa 
de tratamiento de textos, base de 
datos, etc. y buenos juegos. Todo 
por 59.000 pts. José Luis de Gra- 
nollers. Tel. (93) 8702190 (20 a 22 
hs.). CPl. 

Vendo consola de videojuegos 
ColecoVisión c/tres cartuchos. 
Precio a convenir, marco Antonio 
Fanz. P.° Universal 9, Esc. B 3." 2.' 
08031 Barcelona. CPl. 
Intercambio programas MSX de 
toda clase. Miguel Jiménez Piza- 
rro c/Morenito de Algeciras 4, 4 o 
C Tel. (956) 606128. Algeciras. 
CPl. 

Compro cartucho de ampliación 
a 64 K modelo SVI 747 o Sony. 
También me interesa comprar 
impresora. Mandar ofertas al 
apdo. 342 de Vitoria. CPl. 
Intercambio juegos de toda clase. 
Juan. Llamar al tel. (977) 720488 
de Ulldecana (Tarragona). (17 a 
20,30). CPl. 

Vendo RUN, enciclopedia prác- 
tica del Spectrum, 4 tomos en 
8.000 pts. Su precio es de 9.855. 
patricio Duque Herrera Urb. Los 
Olivos, 3 4. • D San Fernando (Cá- 
diz) Tel. Í956) 895243. CPl. 
Intercambio programas c/usua- 
rios de Cantabria. Poseo prime- 
ros títulos. Ángel Serna Torralba. 
c/ Florida 10 4." - Tél. (942) 
233443. CPl. 

Busco esquemas de ordenadores 
MSX, así como periféricos y car- 
tuchos. Agradecería información. 
Vicente Esteve Apdo. 85 Elda 
(Alicante). CPl. 

Intercambiamos programas c/ 
amigos de Santander. Llamar a 
Agustín. Tel. 372186 o Luis Vi- 
cente tel. 334166 (22 a 23,30). 
CPl. 

Vendo impresora Brother EP-22 
especial p/Commodore 64 y 
Spectrum. Precio a convenir. Cé- 
sar Toquero López c/Santucho 73 
4" C 48006 Bilbao - Tel. 4336824. 
CPl. 

Vendo Spectravídeo SVI 328 c/ 
lectograbadora SVI 904, Quick 
Shot II, cartucho Super Cross 



Forcé, 2 cassettes de juegos, ma- 
nuales en inglés y español y un 
libro de programación avanzada 
Spectravídeo. Sólo 35.000 pts. 
Rafael Paño c/Industria 103 5", 
08025 Barcelona. CPl. 
Vendo barato Spectravídeo 728 
80 K RAM. Un mes de uso. Ga- 
rantía en blanco. Regalo 15 juegos 
de cartuchos Konami. José Luis 
Vega. Tel. 2354485 (Barcelona). 
CPl. 

Vendo Data Nfemory UDC-01 
Yamaha a estrenar por 12.000 pts. 
Juan M. 1 Gorrotxategui, Gui- 
púzcoa 16, 4 o C Ordizia (Guipúz- 
coa) Tel. (943) 885474. CPl. 
Vendo ampliación de memoria 
HBM-16 más 30 juegos por sólo 
6.000 pts. Sólo Barcelona. Gui- 
llem Carreras Tel. 2035430. CPl. 
Vendo impresora Philips de 80 
colum. (fricción y tracción). Buen 
estado. Garantizada. Regalo 50 
cartuchos c/ella. Vendo Unidad 
de disco Philips c/garantía y rega- 
lo 1 5 discos c/programas. Precios 
a convenir. José Ignacio. Tel. (94) 
4494685. CPl. 

Intercambio programas de jue- 
gos. Jordi Codina c/Bilbao 11,4.° 
3. J Manresa (Barcelona) - Tel. 
(93) 8734135. CPl. 
Contacto c/usuarios MSX de to- 
da España p/intercambio trucos, 
dudas, etc. José L. Gordillo c/To- 
rrebeses 6, Sevilla 41016. CPl. 
Intercambio programas desinte- 
resadamente. Eliseo Javier Rome- 
ro. Pza. Vizconde de Miranda 3, 
Bl A. 14002 Córdoba. Tel. 
258774. CPl. 

Intercambio. Envíame tus pro- 
gramas grabados y te devuelvo la 
cinta con otros. Javier Nosás. 
Rambla Justo Oliveras, 69, 4." 3.'. 
Hospitalet (Barcelona). CPl. 
Intercambio programas de todo 
tipo, sugerencias e ideas sobre el 
sistema. Daniel David Gutiérrez. 
Pza. Vizconde de Miranda, n." 3, 
Bl A. 14002 Córdoba. Tel. 
254996. CPl. 

Cambio programas MSX. Poseo 
Nightshade, Gunlright, Yie Ar 
Kung Fu, Luis Losada López, 
Av. Reino de León, 7, 4." A. León. 
Tel. (987) 213389. CPl. 
Comrpo cartucho de expansión 
de memoria de 16 ó 64 K, cuyo 
valor no supere las 4.000 pts. Luis 
Santiago. C/. Trajano, 5-5.° F. 
18002 Granada. Tel. 205777. 
CPl. 

Vendo 2 cartuchos MSX — Super 
Soccer y Buggy — y otros en cin- 
ta. También libros «Descubre tu 
MSX» y «Manual de referencia 
Spectravídeo y MSX» y cassette 
de y para MSX. Miguel. Pza. 
León Felipe 8, l. u C. 47012 Valla- 
dolid. Tel. 398160. CPl. 
Compro o intercambio progra- 
mas contabilidad, facturación, 



stock p/Spectravídeo c/unidad de 
disco 605A. Tengo Dbasell, Su- 
percalc, wordstar, etc. Marco Lo- 
rente Duval. C/. Cuenca, 52-1. 
46008 Valencia. Tel. (96) 
325 89 30 (tardes). CPl. 
Contacto. Club Amics del MSX 
escríbenos. Contestamos todas 
las cartas c/información s/nuestro 
Club y prestaciones. Ctra. Vella 
34, 3." 1.'. Monteada i Reixach 
(Barcelona). CPl. 
Contacto c/usuarios MSX p/in- 
tercambio de programas, trucos e 
información. Feo. Nova Fernán- 
dez. Ctra. Madrid, 48 B, 1 A. Ba- 
dalona. 06008. Tel. 253683/865. 
CPl. 

Intercambio programas MSX. 
Primeros títulos del mercado. 
Iñaki Fernández Izquierdo, c/. 
Zamakoa, 7, 5." Dcha. Galdácano 
(Vizcaya). Tel. (94) 4563372. 
CPl. 

Intercambio programas de juego. 
Poseo Alien 8, Boga Boo, etc. Pe- 
dro García Caro Sánchez. C/. 
Carlos III, 17, 4." B. Cartagena 
(Murcia). Tel. (968) 520202. CPl. 
Intercambio juegos MSX. Man- 
dar lista. Pablo Velasco Calvo. 
C/. José María de la Puente, 6, 6." 
A2. 09006 Burgos. CPl. 
Vendo Sony HB-55 P como nue- 
vo. Regalo varias cintas. Carlos. 
Tel. (54) 160606. CPl. 
Intercambio juegos MSX. Tengo 
Zaxxon, Manic, Ninia y busco 
Panorama p/matar y The Master 
of the Lamp. José Luis. Pza. Juan 
XXIII, 5, 1.» Dcha. Cartagena 
(Murcia). Tel. (968) 509084. CPl. 
Intercambio juegos. Floren 
González Fuente. C/. Alto 
Alday, 1, 4." Izq. S. Salvador del 
Valle (Vizcaya). CPl. 
Contacto con interesados en for- 
mar club de MSX en Sabadell. 
Andrés Blanco. Apdo. de Co- 
rreos 2168. Sabadell (Barcelona). 
CPl. 

Cambio/ vendo programas, tales 
como Cazafantasmas, Decathlon, 
Pitfall II, HERO, etc. Andrés 
Roldán Aranda, c/. Explanada 5, 
5.°-B, Ubeda (Jaén), tel. (953) 
751668. CP2. 

Compro cartucho de ampliación 
de memoria de 16K en buen esta- 
do a precio negociable. También 
intercambio programs MSX. 
Asier Rod Lope. c/. Pintores 
Arrue 8, 4."D -48015 Bilbao (Viz- 
caya). CP2. 

Cambio/vendo programas. Po- 
seo más de 40 títulos. Buena cali- 
dad. Raúl Balsera. Av. de Navarra 
39 D, 2.C Zarauz (Guipúzcoa). 
Tel. (943) 833671. CP2. 
Contacto usuarios MSX. Seccio- 
nes cassettes, bibliografía, soft- 
ware, etc. Club Arcade SoftMSX. 
Apdo. 2108 Burgos. CP2. 
Vendo ordenador Sony HB75P 



80K, como nuevo, por compra de 
otro MSX c/disco, más instruc- 
ciones, cables y programas en 
cinta. Luis. Tel. (91) 7785227 (De 
16hs.) CP2. 

Contacto c/usuarios MSX p/in- 
tercambio de información, datos, 
experiencias, etc. Posible forma- 
ción club. Sólo p/Lugo. Gustavo 
Cela c/Poeta Cabanillas 10-12 P.3 
Izq. 27004 Lugo. Tel. 216793. 
CP2. 

Vendo urgente Sony HB75P 
80K, nuevo, c/garantía 70000 pts. 
Incluye software c/más de 200 tí- 
tulos comerciales y más de 60 car- 
tuchos. Andrés Sanz c/Latassa 22, 
Zaragoza. Tel. (976) 453979. 
CP2. 

Cambio/vendo juegos. Poseo los 
mejores. Todos los de Activisión, 
Yie arKungFu, etc. Luis A. de la 
Fuente, c/Gran Capitán 3-5 
2"Der. Salamanca. CP2. 
Cambio juegos, utilidades y 
experiencias MSX. Fernando 
García c/Mossen Andreu 42, 12° 
1' Cornellá (Barcelona). Tel. (93) 
3765220. CP2. 

Vendo plotter Sony c/poco uso, 
un cartucho Mouser, 3 juegos en 
cinta. Juan González Castilla. 
Tel. (94) 4636746 de Vizcaya. 
CP2. 

Intercambio programas de todo 
tipo. Xavier Martínez. Viladecans 
(Barcelona) Tel. 6583602. CP2. 
Vendo urgente Canon V-20 c/ 
poco uso y perfecto estado, c/ca- 
bles y manuales y regalo unos 70 
programas. Todo 50.000 pts. Pre- 
feriblemente de Pontevedra. Elvis 
Martínez, Avda. Zamora 99,2" 
Dcha. Vigo-1 1. Tel. (986) 414525. 
CP2. 

Cambio más de 1.000 programas 
en Basic y más de 60 CP/M p/ 
Spectravídeo 328, por ordenador 
MSX o periféricos. Poseo revistas 
y libros de informática. Jacinto 
Moreno (957) 299063 de Cádiz. 
CP2. 

Intercambio programas p/MSX, 
juegos, gestión, educativos, apli- 
caciones. Carmelo González c/ 
Industrias 34, 5<C Valladolid. Tel. 
(983) 294592 CP2. 
Cambio ocho buenos programas 
por un cartucho de juegos. Valo- 
raré todas las cartas. Dan López 
Av. Reino de León 7,4" A. 24006 
León. CP2. 

Intercambio juegos MSX. Vendo 
revista PC Magazine n" 13 Marzo 
junto c/diskette demost. PC text, 
PC base. 350 pts. Más cassette c/ 
10 juegos. Todos 1.000 pts. Mar- 
tín Pérez c/Gral. Franco 53, Los 
Cristianos II, 23 -Los Cristianos- 
Tenerife. CP2. 

Intercambio programas comer- 
ciales e instrucciones de los mis- 
mos. Jordi Roca Puig. Apdo. 274 
Vic (Barcelona). CP2. 
Vendo ampliación de memoria 
HBM16 Sony 4.000 pts. Luciano 
Sayalero. P. Martiñene 4, 6" A. 
Zarauz (Guipúzcoa) Tel. (943) 
851691. CP2. 

Compro ampliación de memoria 
de 64K e intercambio programas, 
experiencias ideas, etc. José Luis 
Rojano, Tel. (91) 6191629 de 



Alcorcón (Madrid) (de 18 a 20 
hs.). CP2. 

Intercambio programas en cinta 
o diskette 3,5", Basic, CP/M, 
MSX-DOS o CM. Mándame tu 
cinta o diskette y recibirás el mío 
con otros nuevos muy interesan- 
tes. Oscar Vallejo. Av. de Madrid 
9, 3"3', Esc. c 08028 Barcelona. 
CP2. 

Cambio cartucho "Monkey Aca- 
demy" por otro a convenir. Tam- 
bién cambio otros juegos preferi- 
blemente con usuarios de Valen- 
cia. José Seguí. Av. Malvarrosa 41 
4' 46011 Valencia. CP2. 
Vendo órgano polifónico Casio 
MT70 casi sin usar. 40.000 pts. o 
cambio por plotter Sony. José Se- 
guí. Avda. Malvarrosa 41 4* 
46011 Valencia. CP2. 
Intercambio importantes juegos. 
Poseo más de 50 (Ninja, Máxima, 
Zaxxon, River Raid, Inglés I, etc.) 
Dani y Jordi Batlle, c/Libertat 1 7, 
Vilassar de Dalt (Barcelona). 
CP2. 

Intercambio programs de toda 
clase. Tengo más de 120, especial- 
mente con gente de Reus. Carlos 
Tel. 305420. CP2. 
Intercambio programas MSX. 
Poseo más de 180. Antonio Ga- 
llego Montero. c/Campoamor 
13-15 Edif. B Esc. 2', 2" 2' 08031 
Barcelona. Tel (93) 4270316. 
CP2. 

Intercambio programas. Poseo 
La pulga, Blagger, Zaxxon, Dog 
Fignter, procesador de textos, etc. 
Envíame tu cinta c/programas. Te 
la devolveré con otros nuevos. 
Antonio Orgega, CanBassa A, 
11, 4 o 1% Granollers (Barcelona). 
(93) 8709894. CP2. 
Contacta con nosotros. Club 
Usuarios SVI y MSX. Dispone- 
mos de información y programas. 
AV. César Augusta 25, Zaragoza 
o Apdo. de Correos 6030. Tel. 
560013 (preguntar por David). 
CP2. 

Contacta conmigo si vives en 
Alicante. Poseo un MSX y quiero 
intercambiar programas. Jacobo 
Tel. (965) 222538. CP2. 
Intercambio programas comer- 
ciales MSX. Esteban Rapaso Gó- 
mez, c/Fraga do Rei 11, Arzua 
(La Coruña) Tel. (981) 500486. 
CP2. 

Contacto en Pamplona para 
intercambio de programas e ideas. 
Oscar Moreno Vassart. Tel. 
236111 (mañanas). CP2. 
Vendo HB 75P Sony, 80K RAM, 
poco uso, c/garantía por 3 meses, 
cables conexión, manuales en cas- 
tellano, 45 programas comerciales 
(juegos y gestión). Sólo 45.000 

f)ts. Francisco A. Molina Mosto- 
es (juegos y gestión). Sólo 45.000 
pts. Francisco A. Molina Monto- 
ro. Av. de Barcelona, 326 4° B 
18006 Granada. Tel. (958) 119686 
(21 a 23Hs.). CP2. 
Vendo cartucho ampliación de 
memoria HBM 16 Sony. Andoni 
Regó Echebarría c/Arostegui 35, 
Bermeo (Vizcaya). Tel. (688) 
1827. CP2. 

Vendo/compro/cambio progra- 
mas MSX. Rubén Soto de Roa. 
c/Teruel 4, Tudela del Duero 



(Valladolid). CP2. 
Cambio cartucho MSX (Senjo) 
por otro (Yie ar Kung-Fu, Hiper 
Sport I, II, Super Tennis, etc.) o 
por dos cintas (Zaxxon, Decath- 
lon, Ghosbusters, etc.) o vendo 

Sor 4.900 pts. Miguel A. Hernáiz 
arrido c/San Mariano 62, I o 3* 
Viladecans (Barcelona) Tel. (93) 
6585781. CP2. 

Vendo/cambio programas MSX 
a usuarios MSX de Castellar del 
Vallés, Sabadell y zona. Santi 
Gual Martí. Prim, 18, Castellar 
del Vallés (Barcelona). Tel (93) 
7145751/7414. CP2. 
Intercambio/vendo juegos MSX. 
Más de 150. Francisco Pardo. To- 
rrassa 119, 1° 4% Hospitalet (Bar- 
celona). Tel. (93) 422 72225. CP2. 
Vendo cartucho ampliación de 
memoria HBM 16 Sony. Poco 
uso. 4.500 pts. Vicente Reche 
Ibáñez. c/Barón de Mayáis 27 5" 
25005 Lleida. CP2. 
Intercambio programas MSX de 
juegos. Poseo Ghostbusters, 
Buck Rogers, Booga Boo, etc. 
Juan Manuel Poyato. Tel. (954) 
663980 (19 a 21 hs.) CP2. 
Intercambio programas con 
usuarios de toda España. Poseo 
Sorcery, Hiper Sport I, II; Kung 
Fu, etc. Jairo Romero Luján c/ 
Hnos. Becerril 3, bloque, b, 1 U C 
-16004 Cuenca. Tel (966) 225823. 
CP2. 

Intercambio de programas, 
información y juegos. Escríbe- 
nos, somos un Club L.S.D. Prin- 
ter. Apdo. 2093 Murcia. CP2. 
Vendo/cambio cartuchos MSX y 
vídeojuegos Philips con seis car- 
tuchos por 10.000 pts. José A. 
Peñas, Av. San Bernardo Calvo 
41, 5' 1', Reus (Tarragona). Tel. 
(977) 317329 (22,30 a 23 hs.). 
CP2. 

Contacto con usuarios MSX. 
Nuevo club MSX J.C. José Car- 
los Camacho Pérez, c/Larga 52, 
Bonares (Huelva). Tel. (955) 
366169. CP2. 

Intercambio programas. Poseo 
más de 80. Mariano Delgado 
García. c/Becerril 3, C 2"A, 16004 
Cuenca. Tel. (966) 222668. CP2. 
Intercambio programas comer- 
ciales MSX sin Fin económico. 
Envíame tu cinta grabada y te la 
devolveré con los que pidas. José 
L. Vega Pza. Salvador Riera 3, 
Etlo. 3' 08026 Barcelona Tel. (93) 
2354485. CP2. 

Cambio, compro, vendo progra- 
mas para SVI328. Tengo muchos 
(Spectron, Sasa, etc.) Miguel A. 
Herráiz Díaz c/Martínez izquier- 
do 14, 28028 Madrid. CP2. 
Contacto para formar Club 
Amigos del MSX e intercambiar 
programas e ideas. Pide informa- 
ción sin compromiso. Club Flop- 
py MSX, c/Dr. Moragas 204-212 
2" 1 Esc. A. Barberá del Vallés 
(Barcelona). CP2. 
Intercambio programas MSX 
con usuarios de Barcelona y Ba- 
dalona. Sergio González Díaz c/ 
Camprodón 32, Badalona (Barce- 
lona). Tel. 3872634. CP2. 
Contacto con usuarios de MSX 
p/intercambio de cintas, trucos, 
experiencias, etc. Guillermo Pé- 



rez, c/José Antonio 47, 3 o Izda. 
Sta. Eugenia de Riveira (La Co- 
ruña). Tel. (981) 87078. CP2. 
Vendo/Intercambio programas 
MSX (HERO, Master of the 
lamp, etc.) Contestaré a todos. 
Rubén Pérez Seguí c/México 1-3 
Piso 3°C, Salamanca. CP2. 
Contacto urgente con el amigo 
lector que se puso en contacto 
conmigo y acordamos intercam- 
bio de Curso Basic MSX por 
Buck Rogers o HERO. Jordi Fe- 
rran, c/Matajudaica 10, Corea 
(Gerona). CP2. 

Cambio programas, información 
y conclusiones. Poseemos má s de 
30 títulos. Apuntarse al club es 
gratuito. Club MSX MICRO 
SUR. c/Cristo Baja, 1, Torrepe- 
rogil (Jaén). Tel. (953) 776005. 
CP2. 

Vendo consola vídeojuegos Phi- 
lips G7000 poco uso. Transfor- 
mable ordenador c/módulo mi- 
crosoft 16K ydos cartuchos, más 
manual de instrucciones y poster 
gigante. Todo por 20.000 pts. Ro- 
berto Vallejo c/Sta. Cruz 29 3°F 
09002 Burgos. Tel. (947) 269818. 
CP2. 

Intercambio programas, unos 40, 
por una ampliación de cartucho 
de 64K. Mando lista a quienes la 
soliciten. José L. Stoduto García. 
c/Manuel Blasco 8,5°C 42004 So- 
ria. CP2. 

Intercambio 40 juegos (Le Mans, 
Time Bandits, Blagger, etc.) por 
ampliación en especial de 64K. 
Urgente. Javier Costa. P° Mallo- 
carca 7, 2"2", Palma de Mallorca- 
Tel. (971) 284655 (martes o jueves 
de 19 a 21). CP2. 
Contacto con usuarios MSX en 
La Coruña, Poseo Stop the Ex- 

Kress, Grand National, Manic 
liner, etc. José Manuel Cereijo 
c/Forcarey D.P 2 La Coruña-Tel. 
200842. CP2. 

Cambio El Grand National o Ba- 
talla de Tanques por uno de estos 
juegos: HERO, Zaxxon, Les 
Flics, Booga Boo, Pitfall II, Past 
Finder, Ghostbusters, Master of 
the Lamps o Decathlon. Oscar 
Deprado c/Angel Rebollo -D.P.2 
La Coruña. Tel. 200949. CP2. 
Cambio* cartucho de ampliación 
HBM-16 por otro HBM-64, re- 

f alando 90 juegos. José David, 
el. (956) 110921 (14.30 a 15.30 o 
21 a 23 hs.). CP2. 
Intercambio programas MSX. 
Más de 100 títulos. Pide lista. Je- 
sús López Alvarez c/Simancas 
2,1°B Melilla=Tel. (956)687738. 
CP2. 

Intercambio toda clase de pro- 
gramas para MSX. Poseo más de 
30 Escribir o enviar vuestros pro- 
gramas a: Antonio Manuel R. 
Bnncones Jorge Guillen N"32 
Malaga 29003. CP2. 
Intercambio 4 cintas con progra- 
mas variados por los programas 
de las revistas MSX EXTRA n» 5 
al 13 ambos ambos inclusive y 
por los programas de las revistas 
MSX CLUB n° 1 al 8 ambos inclu- 
sive. Escribir a: José Vicente Pla- 
nells C/Jesús Morantes Borrás n° 
211 46012 Valencia. CP2. 
Vendo/Cambio cintas de juego y 



9 



Tablón de anuncios i 



3140 II PR*0 TUEN DISwcS*:'©* 
-•' <:X2*16>-4, CY2*lS)-3>- 



educativas MSX: Zaxxon, Alien 
8, Jet Set Willy, Spartan X, Road 
Figher, Beam Rider, Ghostbus- 
ters, etc. Escribir a Luis Losada 
Av. Reino de León n° 7 4". Recibir- 
la algunos de Baloncesto, Tenis, 
etc. Tel: 987-213389. CP2. 
Vendo HB 75-P de Sony (64K), 
Cassette (Data Recorder) de San- 
yo, 5 Cartuchos (RAM), 15 Cas- 
settes de juego, Cartucho Data- 
Cartridge (Agenda Personal), 28 
revistas MSX, Compilador de 
Pascal, 5 cintas vírgenes = 70.000 



Ets. Facilidades depago -Marti 
lorach Torres- C/Roge 



des depago -Marti 
rres— C/Rogers de 
Flor 284 3" I o Barcelona 08025, Tel. 
2573180. CP2. 

Vendo un ordenador Philips 
MSX de 48K, modelo VG 0810, 



Tiempo de uso, 15 meses Antonio 
Vázquez Torre C/Gongora n° 1 1 
2" A. Córdoba 14001. CP2. 
Intercambio programas MSX de 
juegos y utilidades. Tomas Más 
Esteve, c/Juan Carlos 1, 55, 2 o 
Elda. Alicante. CP2. 
Vendo ordenador MSX SVI-728 
(64K RAM-16k VRA M y 32K 
ROM), c/conexiones p/pantalla, 
transformador, manual de usua- 
rio en castellado e ingles, 2 cartu- 
chos (bATTLE cROSS Y cHESS 
de Sony) y unos diez cassette de 
juegos. 45.000 pts. Ismael Gonzá- 
lez P/Fuente Farga 28 2" 3" tel. (93) 
3570654 Barcelona 08032 Llamar 
de 17 a 18 de lunes a jueves. CP2. 
Vendo impresora matricial de 40 
columnas, marca Phillips Mode- 



lo VW 0010. Joaquin Melich. tel 
(93) 3730708. A partir de las 
22 hs. Regalo programas- de pro- 
ceso de textos. CP2. 
Compro esquema del ordenador 
Toshiba HX10. Pagaré gastos de- 
cir medio por telf. o carta. Anto- 
nio Montes Apdo. de Correos 
291 Gerona, tel part. 230030 tel. 
trabajo 203000. CP2. 
Contacto con usuarios del siste- 
ma MSX p/intercambiar progra- 
mas comerciales (poseo alguno de 
los mejores), y otros programas 
(de revistas, libros) hechos por mi 
mismo. Alfonso Velazco Gutié- 
rrez c/la Zarzuela n"2-4" D. Torre- 
lavega. Cantabria. CP2. 
Vendo juegos de Blagger Atlhetic 
Land etc. Preguntar por Sergio, 



C/Pobla de Lollet 22 ent. 3" Bar- 
celona 08028 tel. 330-4865. CP2. 

Vendo adaptador al sistema MSX 
para SPECTRA VIDEO 328/318, 
con toda su documentación y ga- 
rantía y con un cartucho de am- 
pliación de memoria MSX de 16K 
y otro de Konami (HIPER 
SPORTS 1) por 30.000 pts. Rega- 
lo 5 cintas MSX y otros 3 de 
Spectravideo. José Barrachina 
Alós c/Antonio Gotor 2 Albace- 
te, tel. 237138. CP2. 

Cambio todo tipo de programas, 
Spectravideo 318/328. José Maria 
Muñiz. C/M. Hermida n" 12 Pl. 
5B Santander. CP. 39009. Tel. 
372610. CP2. 




ANALIZAMOS 5 
UNIDADES DE DISCO 

CAULA LLAMADA m. 
DEL MSX / 

ISoRSUORO jh 
ROBY DEFENSER. '*> 
DESENSAMBLADOR LIBRO DE GUARDIA 



A TOPE ESTAS VACACIONES 
PIDE EN TU QUIOSCO EL 
DOBLE DE VERANO Y EL 
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DESENSAMBLADOR 
Z-80 



Conocer el MSX por dentro 
es un objetivo que tienen to- 
dos nuestros usuarios. El pro- 
grama desarrollado y explica- 
do que te ofrecemos es un ca- 
mino muy importante. Un 
camino que también pueden 
aprovechar los usuarios de los 
Spectra vídeo 318 y 328. 



Esté programa permite listar en 
mnemónicos cualquier progra- 
ma en código máquina Z-80 rea- 
lizado sobre un ordenador MSX. Ade- 
más es posible hacer volcados de memo- 
ria en hexadecimal, ASCII o ambos a la 
vez. El programa es compatible con dis- 
co e impresora, y la salida puede obte- 
nerse tanto por pantalla como por im- 
presora de 80 columnas. Con solo cam- 
biar dos líneas puede usarse en los orde- 
nadores SVI 3 1 8/328 ; esto es de particu- 
lar interés para los usuarios de estas má- 
quinas ya que, de momento, no existe un 
programa comercial de este tipo para las 



Cómo teclear el programa 

Antes de comenzar a introducir el pro- 
grama es conveniente redefinir algunas 
teclas de función, a fin de facilitar el 
trabajo. Se recomienda teclear lo que 
sigue en modo directo: 
KEY1, "M$="+CHR$ (&H22) 
KEY2, "THEN" 
KEY3, "GOTO" 
KEY4, "GOSUB" 

KEY5, tt RETURN"+CHR$(&H0D) 
Si en cualquier momento se desea devol- 
ver a las teclas sus funciones normales 
basta teclar desfusr=62 : ?usr(0) :cls (esto 
es una llamada a la rutina en ROM que 
asigna las funciones iniciales). La nume- 
ración de las líneas es totalmente regular; 
comienza en 1 0 y aumenta en saltos de 
10. Por tanto, para obtener cómoda- 
mente los números de línea basta con 
teclear AUTO y RETURN; a partir de 
aquí sólo se tendrán que introducir los 
textos de las líneas. 

Si se quieren suprimir los REM basta 
con pulsar RETURN al aparecer el co- 
rrespondiente número de línea. Hacien- 
do esto se tendrán unos 700 bytes más 
disponibles. 

USO DEL PROGRAMA 

Al estar escrito en BASIC, el programa 
se instala en la parte baja de la RAM del 



usuario (comienzo en 32768 (&H8000) 
para 32 o más Kbytes de RAM y 49152 
($HC000) para 16 Kbytes de RAM). 
Para trabajar no tendremos problema si 
la parte que nos interesa estudiar está en 
ROM (direcciones 0 - 32767). Ahora 
bien, si el programa en código máquina 
debe estar en RAM hay que cargarlo en 
alguna zona donde el BASIC no pueda 
alterarlo accidentalmente. La RAM 
puede considerarse dividida en dos par- 
tes por la dirección más alta del bloque 
de control de ficheros que, normalmen- 
te, coincide con la última dirección de la 
zona de cadenas de caracteres. Esta di- 
rección es controlada por el sistema por 
medio de variable MEMSIZ (MEMory 
SIZe=tamaño de memoria) y puede 
cambiarse por medio de la instrucción 
CLEAR a, b donde "a" es el espacio 
asignado para cadenas de caracteres y 
"b" es el nuevo "MEMSIZ". La segunda 
parte de la RAM contiene la zona de 
trabajo del sistema, formada por una 



queda totalmente libre, y es ahí donde 
cargaremos el código que deseemos de- 
sensamblar. 

A continuación vamos a ver los valores 
mínimos que pueden emplearse con 
CLEAR. Valores más pequeños pueden 
dar lugar a un error "OUT OF STRING 
SPACE" para "a" y "OUT OF ME- 
MORY" para "b". 
32 o más K RAM 

— CLEAR 100,41854 (desensambla- 
dor sin REM's) 

— CLEAR 100,42604 (desensambla- 
dor con REM's) 

16 K RAM 

— CLEAR 100,58238 (desensambla- 
dor sin REM's) 

— CLEAR 100,58988 (desensambla- 
dor con REM's) 

Teniendo en cuenta que el comienzo de 
la zona de trabajo está en 62336 con 
cassette y en 57441 con diskette obtene- 
mos esta tabla que nos da las posibles 
longitudes de código a desensamblar: 




serie de variables y rutinas de control 
interno; esta zona tiene una longitud fija 
de 2586 bytes, a los que hay que añadir 
4895 más si se está usando el BASIC de 
disco. Toda la zona entre MEMSIZ y el 
límite inferior de la zona del sistema 



Debe tenerse cuidado en no sobrepasar 
estos límites, ya que se invadiría la zona 
de variables del sistema con lo que, muy 
probablemente, quedaría bloqueado el 
ordenador y tendríamos que efectuar un 
RESET para recuperar el control. 



MAPA DE MEMORIA DEL DESENSAMBLADOR 



J 16384 32767 £32768 (32 K o más) 49152 (16 k) 65535 
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RELOCALIZACION DE 
PROGRAMAS 

A pesar de los límites expuestos ante- 
riormente, con este programa puede de- 
sensamblarse cualquier otro en código 
máquina, no importa cuál sea su longi- 
tud o dirección real de ejecución. Para 
ello nos vamos a valer de las facilidades 
que nos da la instrucción BLOAD y de 
una característica de este programa. 

1 . "- Preparación para trabajar con pro- 
gramas largos: Cuando tengamos un 
código que no nos cabe directamente en 
el espacio que le vamos a reservar efec- 
tuaremos estos pasos: 

L Dividiremos el programa en blo- 
ques suficientemente cortos. 

2. Salvaremos cada bloque con la ins- 
trucción. 

BSAVE"dispositivo:nombre", inido, 
fin 

3. Cargaremos luego separadamente 
cada bloque. 

2. °- Relocalización de bloques: Al ir a 

cargar un programa, o un bloque separa- 
do por el sistema anterior, podemos en- 
contrarnos con que todo o parte de él 
queda fuera de la zona donde debe estar 
para poder trabajar con él. Los pasos a 
seguir son: 

1. Cargarlo mediante la instrucción 
BLO AD u dispositivo ¡nombre", despla- 
zamiento. El "desplazamiento"" es la 
cantidad de bytes a sumar o restar de la 
dirección con que fue salvado para obte- 
ner la dirección de carga. Si es negativo 
deberá sumarse 65536 para obtener un 
número positivo. 

2. Al ejecutar el programa desensam- 
blador, introducir las direcciones de co- 
mienzo actual en memoria y de comien- 
zo real. 



METODO DE TRABAJO 

Los pasos que deben seguirse para traba- 
jar con este desensamblador son los si- 
guientes: 

1. ° Cargar el desensamblador 

2. " Efectuar el CLEAR más conveniente 
para el programa a estudiar. 

3. " Cargar el código máquina. 

4. ° Teclear RUN y ENTER. Aparecerán 
los siguientes mensajes: 
"Dirección inicial?". Es la dirección 
REAL de comienzo del programa. Este 
y los siguientes valores se dan en deci- 
mal. "Dirección final?". Dirección hasta 
la que se va a desensamblar. Contestar 
"s" o "n". Aquí reside la característica 
más importante del programa (relocali- 
zación). Si se contesta "n" aparece el 
mensaje "Dirección inicial en MEMO- 
RIA?"; introducir la dirección a partir 
de donde se ha cargado el código mien- 
tras se desensambla. 



"Salida por impresora? s/n". Pulsar a 
voluntad. 

5." Elegir una opción del menú que apare- 
ce en pantalla. Estas opciones son las 
siguientes: 

1.- Listado hexadecimal. Produce un 
volcado de los valores hexadecimales de 
los bytes elegidos. El formato es en lí- 
neas de 1 0 bytes (24=3 x 8 en impresora) 
encabezadas por la dirección real del pri- 
mer byte. 

2 - Listado ACII. Como el anterior, 
solo que cada byte está representado por 
su código ASCII. Los valores mayores 
de 127 (caracteres especiales) y menores 
de 32 (códigos de control) se representan 
por puntos. Los ceros, por ser muy ca- 
racterísticos, se representan por una 
almohadilla (#). 

3. - Listado combinado. Une los dos 
anteriores. En cada línea se representan 8 
bytes en pantalla y 16 en impresora. 

4. - Listado en mnemónicos. Está for- 
mado por: 

56 38 JP3182C33C0C .>. 

abe de 

a - La dirección del primer byte de la 
instrucción en decimal. 

b - Dirección del primer byte de la 
instrucción en hexadecimal. 

c- Mnemónicos de la instrucción. 
Los valores son decimales. Los saltos 
relativos se dan indicando la dirección de 
destino. 

d - Códigos hexadecimales de la ins- 
trucción. 

e.- Códigos ASCII de la instrucción. 
Todas las opciones terminan con el men- 
saje "Ok", permitiendo así pasar a otra 
opción o cargar un nuevo código. 
A no ser que se tenga un conocimiento 
claro de la estructura del programa a 
desensamblar no debe empezarse con la 
opción 4. En efecto, en código máquina 
no hay forma, en principio, de diferen- 
ciar datos de instrucciones; todo son 
números. Es conveniente, por tanto, un 
estudio general previo. La opción 3 (y 
también las 1 y 2) permiten tener una 
visión más de conjunto y ayudan a des- 
cubrir los mensajes ASCII que pueda 
contener el programa. Es una buena idea 
probar introduciendo como dirección 
de comienzo la 15734. La opción 4 daría 
una serie de mnemónicos válidos; sin 
embargo, si usamos la opción 3 vemos 
que lo que estamos desensamblando no 
son instrucciones, ya que lo que apare- 
cen son los mensajes de error del BA- 
SIC. 

VARIABLES DEL 
DESENSAMBLADOR 

PRG — Dirección real de comienzo 

del código máquina 
FIN — Dirección final (real) 



LNG 

M$ 

RP 

CT 
DIR 

DF 

B 

C 

N 

HX 

D 

HX$ 
CH$ 
C$ 



— Longitud del código, en by- 
tes 

— Construcción de mnemóni- 
cos. Auxiliar en volcados. 

— Bandera impresora, ^sali- 
da por impresora; 0= pantalla. 

— Contador 

— Dirección de carga para de- 
sensamblar 

— Diferencia dirección real - 
dirección de desensamblado 

— Valor decimal del byte 

— Contador de bytes por cada 
línea de volcado 

— Contador de líneas en los 
volcados 

— Dirección de desensambla- 
do actual 

— Dirección real actual 

— Hexadecimales de la instruc- 
ción actual 

— Caracteres ASCII de la ins- 
trucción actual 

— Variable auxiliar 



ADAPTACION A 
SPECTRA VIDEO 318/328 

Este programa corre perfectamente en 
dichos ordenadores escribiendo: 
Línea 70 SCREEN,0: LOCATE,, 
O:WIDTH(40): CLS 
Línea 380 LOCATE,,! :END 



ESTRUCTURA DEL 
PROGRAMA 

El desarrollo de este programa es muy 
sencillo. Consta únicamente de dos par- 
tes: una inicialización, donde el usuario 
suministra los datos necesarios, y una de 
ejecución, que produce la salida elegida. 
Esta última está formada por siete parte 
totalmente independientes, teniendo ca- 
da una una sola salida y una sola entrada. 
Esta parte corresponde, en líneas gene- 
rales, a una estructura "CASE". 
La parte del desensamblador, aunque 
muy extensa no es excesivamente com- 
pleja. Cada instrucción es decodificada 
por una rutina propia, apareciendo to- 
das en la misma secuencia que tienen en 
las tablas de instrucciones del Z-80. Se ha 
preferido esta disposición a incluir los 
nombres en datas, ya que esto último 
hace necesario pasar los datas a variables, 
lo cual supone una pérdida de tiempo al 
comenzar a ejecutar el programa. Aparte 
de ello, la estructura del programa resul- 
ta mucho más clara con este sistema. 
Para efectuar la decodificación se apro- 
vecha la gran racionalidad con que están 
distribuidas las instrucciones. Por ejem- 
plo, las instrucciones con códigos de 
operación de un byte pueden dividirse 
en cuatro subbloques perfectamente di- 
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ferenciados: el segundo de estos (códi- 
gos 64- 1 27) contiene las instrucciones de 
carga de registros, mientras que el terce- 
ro contiene las operaciones aritméticas y 
lógicas. Centrándonos en este último 
grupo, vemos que el resultado de la ope- 
ración (B AND 56)/8+l nos indica el 
tipo de operación a efectuar (todas ope- 
ran sobre el acumulador), de la siguiente 
forma: 

1- Operación "ADD A,... M 

2- Operación "ADC A,..." 

3- Operación SUB..." 
etc. 

Igualmente, la operación (B and 7)+l 
identifica al registro con el que se va a 
operar: 

1- Registro "B" 

2- Registro U C" 

3- Registro "D" 
etc. 

¿Y por qué se emplean las funciones 
lógicas de esta forma y se opera, en este 
caso, con los números 56 y 7, y no con 
otros? Tomemos como ejemplo la ins- 
trucción ADD, A,B. Su código de ins- 



trucción es 128, que representado en bi- 
nario es 10000000. Los 5 primeros bits 
nos dicen que es una instrucción ADD 
A,... ; los 3 últimos nos dicen que el regis- 
tro afectado es el B. 
<j Cómo separar esta instrucción del resto 
de las 255 cuyo código de operación es 
de un solo byte? Lo primero es identi- 
ficarla separando sus primeros 5 bits. 
Desecharemos los 2 primeros, ya que lo 
que nos dicen es que es un código si- 
tuado entre 128 (10000000) y 192 
(1 1 000000), y ya lo sabemos por haber 
determinado esto en la línea 270 del pro- 
grama; debemos pues aislar los 3 si- 
guientes bits. A esta operación se le de- 
nomina enmascarar y se efectúa con un 
AND. Veamos qué ocurre. 

10000000 128 
AND 00111000 56 

00000000 0 
Consultando una tabla de instruc- 
ciones del Z-80 vemos la combinación 
XX000XXX corresponde a la instruc- 
ción ADD A,... Como el resultado es 
aquí múltiplo de 8 (los otros resultados 



posibles son 8, 16, 24, 32, 40, 48 y 56) es 
necesario dividir por 8 para obtener un 
parámetro utilizable por la instrucción 
ON...GOTO. 

Para saber cuál es el registro afectado, 
enmascararemos ahora los 5 primeros 
bytes; la máscara será 00000111, o 
sea, 7. 

10000000 128 
AND 00000111 7 

00000000 0 
La combinación XXXXX000 corres- 
ponde al registro B. No es necesario 
dividir por 8, ya que el resultado es siem- 
pre menor. 

Este tipo de operaciones es la base de 
todo el programa, y permite ahorrar un 
gran número de instrucciones. 
En cuanto a la parte de volcados, cada 
una de las 6 partes es totalmente inde- 
pendiente y puede separarse del progra- 
ma principal, si se desea más espacio. 
Todas tienen la misma estructura: un 
bucle que divide el listado en líneas (va- 
riable N) y otro que recorre cada línea 
(variable C). 



10 * »############################ 

20 '# # 

30 ' # desensamblador Z-80 # 

40 '#(c)86 Lorenzo H. Talavera # 

50 '# # 

60 ' ############################# 

70 KEYOFF : CLS : W I DTH ( 40 ) 

80 STÜPON:ONSTÜPGÜSUB380 

90 INPUT" Di rece ion inicial " ; PRG 

100 INPUT"Direccion f i nal " ; FIN: LNG= 

FIN-PRG 

110 PRINT: PRINT"Coi nci den las di rec 
c iones reales con lasactuales en me 
mor i a?" 

120 M$-INKEYS: I FM$= " " THEN 1 20EL3E I FM 
$="N " ORM*= " n " THEN I NPUT " Direcci on i n 
icial en MEMORIA" ; D IRELSED I R=PRG 
130 PRINT: PRINT" Sal ida por impresor 
a? s/n" : PRINT: PRINT 

140 M$- INKEY$ : IFM*= " " THEN 1 40ELSE I FM 

*«« s » ORM*= " S " THENRP= 1 EL3ERP=0 

150 PRINT" 1 . - Listado Hexadeci mal " : 

PRINT 

160 PRINT"2.~ Listado ASCII": PRINT 
170 PRINT "3.-- Listado combinado" : PR 
I NT 

180 PRINT"4.- Listado en mnemonicoE 

": PRINT: PRINT "El eg i r una opción" 

1 90 M*= I NKEY* ! I FM*< " 1 " ORM* > " 4 " THEN 1 



90 

200 CLS: CT—DIR: DF-PRG-DIR 
210 I FRP"~ 1 THENPR I NT " SAL IDA POR IMPR 
ESORA " : GNVAL <M$) GGTO3040, 3120, 3200 ' 
220 ONVAL ( M* ) GOTO2730 , 28 1 & , 2900 
230 ' 

240 '****** DESE NS AMBLADOR ****** 
250 ' 

260 B-PEEK ( CT ) : HX=CT: D-CT+DF' 

270 ON ( ( B AND 192) / 64) +1 GOSUB400 , 840 , 

880, 970 

280 MX** M " : FORN=HXTOCT 

290 HX*=HX*+RIGHT* ( "0"+HEXS (PEEK (M) 

> ,2) 

300 NEXTN 

310 CH*=-" " : FORN=HXTOCT: B-PEEK (N> 
320 IFB-0THENC*="##"EL3EIFB>31ANDB< 
128THENC*=CHR* (B) ELSEC*=" . " 
330 CH*=CH*+C* 
340 NEXTN 

350 PR'I NTUS I NG "#####"; D s : PR I NT " 
+M$; :PRINTTAB<25)HX*; : PRINTTAB (35) C 
H* 

360 I FRF - 1 THENLPR I NTUS I NG " ##### " ; D ; 
: LPRINT" "+RIGHT*<" " +HEX* ( D ) , 4 
) +" "+MS; : LPRINTTAB < 37 ) HX$; : LPRIN 
TTAB (52) CH* 

370 CT=CT+1: IFCT<= (DIR+LNG-1 ) THEN26 

0 
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380 END 

3:90 ' INSTRUCCIONES DE 1 BYTE 

400 IF (BMÜDS) =4THENM$= " INC " : GÜT087 

0 

410 I F ( BMODB ) =5THENM*= " DEC " : G0T087 
0 

420 IF (BMODS) =6THENM*="LD " : G0SUBB7 
0: M*=M*+" , " : GQTO2640 

430 ONB+1GOTO440, 450, 460, 470, , , , 430 
, 490 , 500 ,510, 520 , , , , 530 , 540 , 550 , 560 
, 570 , , , , 580 , 590 , 600 ,610, 620 , , , , 630 , 

640 p 650 , 660 „ 670 , , , , 680 , 690 , 700 ,710, 

720, , , , 730, 740, 750, 760, 770, , , , 780, 7 

90, 800, 810, 320, , , , 330 

440 M*=" " : RETURN 

450 M$="LD BC, " : GÜTO2650 

460 M*="LD BC, A" ¡RETURN 

470 M*="INC BC": RETURN 

480 M*="RLCA": RETURN 

490 M*="EX AF , AF ' " : RETURN 

500 M*="ADD HL, BC" s RETURN 

510 M*="LD A, (BC) ": RETURN 

520 M$=="DEC BC": RETURN 

530 M$~ " RRCA " : RETURN 

540 M*="DJNZ" : GOTG2660 

550 M*="LD DE, " : GOTO2650 

560 M$= " LD ( DE ) , A " : RETURN 

570 M*="INC DE": RETURN 

580 M*="RL A" -.RETURN 

590 M*^"JR ":GÜTO2660 

600 M*= " ADD HL , DE " : RETURN 

610 M*="LD A, (DE) ": RETURN 

620 M*="DEC DE": RETURN 

630 M*= " RRA " : RETURN 

640 M*="JR NZ, ":GOTO2660 

650 M*-"LD HL , " : GOTO2650 

660 M*="LD ("3GÜSUB2650:M*=M*+") ,HL 

" : RETURN 

670 M*="INC HL": RETURN 

680 M*~ " DAA " : RETURN 

690 M**»' H JR Z.":GOTÜ2660 

700 M$=" ADD HL,HL" : RETURN 

710 M*»" W J4) HL, ( " : GOSUB2650: M*=M*+" ) 

": RETURN 

720 M*=="DEC HL": RETURN 

730 M*="CPL": RETURN 

740 M*«"JR NC, ":GQTO2660 

750 M*="LD SR, ":GÜTG2650 

760 M*="LD (":GOSUB2650:M*=M*4"> ,A" 

: RETURN 

770 M*="INC SR": RETURN 

780 M*="SCF": RETURN 

790 M*="JR C,":GOTO2660 

800 M*="ADD HL,SP": RETURN 

810 M*="LD A, (":GOSUB2650:M*=M*+"> " 

: RETURN 

820 M*="DEC SP": RETURN • 

330 M$= " CCF " : RETURN 

840 I FB== 1 1 8THENM*= " HALT " : RETURN 

850 IFBM27THEN880 



860 M$="LD " : GGSUB870: M$=M$+" , " : GQT 
□ 1590 

870 0N(BAND56) /3+1GO3UB1600, 1610, 16 

20, 1630, 1640, 1650, 1660, 1670: RETURN 

880 ON (BAND56) /8+1GOTO890, 900, 910, 9 

20, 930, 940, 950, 960 

890 M*= "ADD A, " : GOTO 1590 

900 M*="ADC A,": GOTO 1590 

910 M*="SUB " : GOTO 1590 

920 M*="SBC A, " : GOTO 1590 

930 M*="AND " : GOTO 1590 

940 M*="XOR " : GOTO 1590 

950 M*="OR ": GOTO 1590 

960 M$="CP ":GOTO1590 

970 ON ( BM0D8 ) + 1 GOTO9B0 , 1 020 , 990 ,102 

0, 1000, 1020, 1020, 1010 

930 M$~: " RET ": GOTO 1030 

990 M*-"JP ":GOSUB1030:M*=M*+ n , " : Gü 

TO2650 

1000 M*="CALL ":GGSUB1030:M*=M*+ U , " 
: GOTO2650 

1 0 1 0 M$= " RST " + STR* ( BAND56 ) : RETURN 

1 020 ONB- 1 9 1 GOTO , 1 1 20 ,,11 30 ,,11 40, 1 

150, , , 1 160, , 1 170, , 1 180, 1 190, , , 1200, 

, 1210, , 1220, 1230, p , 1240, , 1250, , 1260 

, 1270, , , 1280, , 1290, , 1300, 1310, ,, 132 

0, , 1330, , 1340, 1350, , , 1360, , 1370, , 13 

80, 1390, , , 1400, , 1410, , 1420, 1430 

1030 ON ( BAND56 ) / 8+1 GOTO 1 040, 1050, 10 

60, 1070, 1080, 1090, 1 100, 1110 

1040 M*=M*+"NZ" : RETURN 

1 050 M*=M*+ " Z " : RETURN 

1060 M$=M$+"NC" : RETURN 

1 070 M*=M*+ " C " : RETURN 

1 080 M*=M$+ " PO " : RETURN 

1 090 M*=M*+ " RE " : RETURN 

1100 M*=M*+"P": RETURN 

1110 M*=M*+-"M": RETURN 

1120 M*="POP BC": RETURN 

1130 M*="JP ":GOTO2650 

1140 M*="PUSH BC": RETURN 

1150 M*= "ADD A,":GOTO2640 

1160 M*= " RET " : RETURN 

1170 CT=CT+1:GOTO1450 

1180 M*="CALL ":GOTO2650 

1190 M*="ADC A,":GOTO2640 

1200 M*="POP DE": RETURN 

1210 M*="OUT ( " : GOSUB2640: M*=M*+" ) " 

: RETURN 

1220 M*="PUSH DE": RETURN 
1230 M*="SUB ":GOTO2640 
1240 M$= "EXX " : RETURN 
1250 M*="IN A,":GOTO2640 
1 260 I *= " I X " : CT=CT+ 1 : G0T02 1 90 
1270 M$="SBC A,":GOTO2640 
1280 M*="POP HL": RETURN 
1290 M*="EX (SP) , HL" : RETURN 
1300 M$="PUSH HL": RETURN 
1310 M*="AND ":GOTO2640 
1320 M$-"JP (HL) " : RETURN 
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1330 M*="EX DE, HL" : RETURN 

1340 CT-CT+ 1 : GÜTÜ 1 690 

1350 M*="XGR ":GOTÜ2640 

1360 M*="POP AF": RETURN 

1370 M$= "DI": RETURN 

1380 M*="PUSH AF " : RETURN 

1390 M*="OR ":GÜTO2640 

1 400 rtÜ» " LD 3P , HL " : RETURN 

1410 M*="EI": RETURN 

1420 I*=" IV" : CT=CT+1 : GOTO2190 

1430 M*-"CP ":GÜTO2640 

1440 11 INSTRUCCIONES "CB" 

1450 B=PEEK ( CT ) 

1460 0N(BAND192) /64+ 1 GOTO 1 470 , 15 
1570,1580 

1470. ÜN ( BAND56 ) / 8+1 GOTO 1 480, 149£ 
1530, 1540, 1550 
" : GOTO 1590 
": GOTO 1590 
: GOTO 1590 
: GOTO 1590 
" : GOTO 1590 
" : GOTO 1590 



60, 



00, 1510, 1520 
1480 M*="RLC 
14# M*="RRC 
1500 M*« M RL 
1510 M*="RR 
1520 M*="SLA 
1530 M*="SRA 
1540 M$= "Error" : RETURN 
1550 M*="SRL ":GOTO1590 
1560 M*="BIT"+STR* ( < BAND56) /S) 
GOTO 1590 

1570 M*="RES"+STR*( (BAND56) /8) 
GOTO 1590 

1580 M*="SET"+STR* ( <BAND56>/3> 
1 590 ON ( BAND7 ) * 1 GOTO 1 600 ,1610, 
1630, 1640, 1650, 1660, 1670 
1 600 M*=M*+ "B" : RETURN 
1610 M*=M*+ " C " : RETURN 
1620 M*=M*+"D": RETURN 
1630 M*=M*+"E": RETURN 
1640 M*=M*+"H": RETURN 



1 650 M*=M*+ "L " : RETURN 

1660 M*=M*+ n (HL) " : RETURN 

1670 M*=M*+"A": RETURN 

1680 ■ INSTRUCCIONES "ED" 

1690 B-PEEK ( CT ) :M$="": IFB<640R <B>12 

3 ANDB< 160) ORB > 1 87THEN2 1 70 

1 700 I FB > 1 23THEN20 1 0 

1 7 1 0 I FBMOD8=0THENONB/8--7GOSUB 1 600 , 

1610, 1620, 1630, 1640, 1650, 1660, 1670: 

M$="IN "+M*+" , (C) ": RETURN 

1 720 I FBMODS= 1 THEN0NB/8-7G0SUB 1 600 , 

1610, 1620, 1630, 1640, 1650, 1660, 1670: 

M*="OUT (C) , "+M*: RETURN 

1730 IFB=66THENM*="SBC HL, BC" : RETUR 

N 

1740 IFB=67THENM*=="LD ( " : GOSUB2650: 
M*=M*+" ) , BC" : RETURN 
1750 IFB=68THENM*="NEG" : RETURN 
1 760 I FB=69THENM$= " RETN " : RETURN 
1770 IFB=70THENM*-"IM 0": RETURN 
1780 I FB--7 1 THENM$= " LD I, A": RETURN 
1790 IFB=74THENM$= " ADC HL,BC": RETUR 
N 

1800 IFB=75THENM*="LD BC, ( " : G0SUB26 

50: M$=M$+" ) " : RETURN 

1810 I FB=77THENM*= "RETI " : RETURN 

1820 IFB=79THENM*="LD R, A": RETURN 

1830 IFB=82THENM*="SBC HL, DE" .-RETUR 

N 

1840 IFB=83THENM$= " LD < " : GOSUB2650 : 

M*=M*+"> , DE": RETURN 

1850 IFB=86THENM$="IM 1" : RETURN 

1860 IFB=87THENIÍ$~ "LD A , I " : RETURN 

1870 I FB=90THENM$= " ADC HL, DE": RETUR 

N 

1880 I FB-9 1 THENM$~ " LD DE , ( " : G0SUB26 

50: M*=M*+" ) " : RETURN 

1890 IFB=94THENM*="IM 2": RETURN 

1900 IFB~ : 95THENM$= "LD A, R": RETURN 

1910 IFB=9BTHENM*="SBC HL, HL": RETUR 

N 

1920 I FB=99THENM$= "LD ( " : GOSUB2650 : 
M*=M*+ " ) , HL " : RETURN i * 

1 930 IFB*% 03THENM*= " RRD " : RETURN 
1940 IFB=106THENM*="ADC HL , HL " : RETU 
RN 

1950 IFB=107THENM$=-"LD HL, < " : 60SUB2 

650: M*=M*+ " ) " : RETURN 

1 960 I FB= 1 1 1 THENM** " RLD " : RETURN 

1970 IFB=114THENM*="SBC HL,SP":RETU 

RN 

1980 IFB=1 15THENM*="LD ( " : GOSUB2650 
:M*=M*+") , SP": RETURN 

1990 IFB=122THENM*="ADC HL,SP":RETU 
RN 

2000 IFB=123THENM*="LD SP,(":G0SUB2 
650: M*=M*+" ) " : RETURN 
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2010 IFB=160THENM$="LDI" : RETURN 
2020 I FB= 1 6 1 THENM*= " CP I " : RETURN 
2030 I FB= 1 62THENM$= "INI" : RETURN 
2040 IFB=163THENM*="0UTI " : RETURN 
2050 I FB= 1 68THENM*= " LDD " : RETURN 
2060 I FB= 1 69THENM$= " CPD " : RETURN 
2070 I FB= 1 70THENM*= " I ND " : RETURN 
2080 I FB= 1 7 1 THENM*= " ÜUTD " : RETURN 
2090 I FB= 1 76THENM*= " LD IR": RETURN 
2 1 00 I FB= 1 77THENM*= " CP I R " : RETURN 
2110 IFB=178THENM*=" INIR" : RETURN 
2 1 20 I FB= 1 79THENM*= " OT IR": RETURN 
2130 IFB=184THENM*="LDDR" : RETURN 
2 1 40 I FB= 1 S5THENM*= " CPDR " : RETURN 
2150 IFB=186THENM*=" INDR " : RETURN 
2 1 60 I FB= 1 87THENM*= " ÜTDR " : RETURN 
2170 M*=" Error " : RETURN 
2180 ' INSTRUCCIONES REGISTROS IND 
ICE 

2190 B=PEEK(CT) 

2200 IFB=9THENM$= " ADD " + I *+ " , BC" : RE 
TURN 

2210 IFB-25THENM*=" ADD "+I*+",DE":R 
ETURN 

2220 IFB=33THENM*="LD " + I *+ " , " : GOTO 
2650 

2230 I FB=34THENM$= " LD ( " : GOSUB2650 : 
M*=M$+ "),-" + 1 $ : RETURN 

2240 IFB=35THENM$= " INC " + I$: RETURN 
2250 IFB=41THENM*="ADD "+I*+",HL":R 
ETURN 

2260 I FB=42THENM$= " LD " + 1 $ + " , < »' : GOS 
UB2650: M$=M$+" ) " : RETURN 
2270 IFB=43THENM*="DEC RETURN 
2280 IFB=52THENM*="INC ":GOTO2610 
2290 I FB=53THENM$= " DEC ":GOTO2610 
2300 IFB=54THENM*="LD " : G0SUB26 1 0: C 
T=CT+ 1 : M*=M*+ " , " +STR* ( PEEK ( CT ) ) : RET 
URN, 

2310 IFB-57THENM*="ADD "+I$+" , SP" : R 
ETURN 

2320 I FB > 111 ANDB< 1 20THENM$= " LD " ¡ GO 
SUB2610: M*=M*+" , " : ON (BAND7) +1 GOTO 16 
00, 1610, 1620, 1630, 1640, 1650,2470, 16 
70 

2330 I FB > 69ANDB< 1 27ANDBM0D8=6THENM* 
m " LD " : ON ( BAND56 ) / 8+ 1 GOSUB 1 600 ,1610 
, 1620, 1630, 1640, 1650,2470, 1670: M*=M 
*+", " :GOTO2610 

2340 IFB=134THENM*="ADD ":GOTO2610 
2350 IFB=142THENM*="ADC ":GOTO2610 
2360 IFB=158THENM*="SBC "-.GOTO2610 
2370 IFB= 166THENM$= " AND ":GOTO2610 
2380 IFB=174THENM*="X0R ":GOTO2610 
2390 IFB=182THENM*="0R ":GOTO2610 
2400 IFB=190THENM*="CP ":GOTO2610 
2410 IFB=225THENM*="P0P "+I*: RETURN 
2420 IFB=227THENM*="EX (SP) , " + I*>: RE 
TURN 



2430 IFB=229THENM*="PUSH "+I*:RETUR 
N 

2440 IFB=233THENM$="JP ("+I*+")":RE 
TURN 

2450 I FB=249THENM$= " LD SP , " + I * : RETU 
RN 

2460 IFB=203THENCT=CT+2: IFÍPEEKÍCT) 

M0D8 ) =6THEN0N ( PEEK ( CT ) AND 192)/ 64+ 1 G 

OTO2480, 2560, 2570, 2580 

2470 M$= "Error " : RETURN 

2480 ON (PEEK (CT) AND56) /8+1GOTO2490, 

2500 , 25 1 0 , 2520 , 2530 , 2540 , 2470 , 2550 

2490 M*="RLC ":GOTO2600 

2500 M*="RRC ":GOTO2600 

2510 M*="RL ":GOTO2600 

2520 M*="RR ":GOTO2600 

2530 M*="SLA ":GOTO2600 

2540 M*="SRA ":GOTO2600 

2550 M*="SRL ":GOTO2600 

2560 M*="BIT ":GOTO2590 

2570 M*="RES ":GOTO2590 

2580 M*="SET " 

2590 M*=M*=M*+STR* ( ( PEEK ( CT ) AND56) / 
8>+", " 

2600 M*=M*+" <"+I*+"+":B=PEEK(CT-l) : 
GOSUB2620: M*=M*+" ) " : RETURN 
26 1 0 CT-CT+1: M*=M*+ " ( " + I *+ " + " : B=PEE 
K (CT) : GOSUB2620: M*=M*+" ) " : RETURN 
2620 B= : ( (B>127) * (256-B) - <B< 128) *B) : 
I FB< 0THENM*=M*+STR* ( B ) ELSEM*=M*+ " + " 
+RIGHT*(STP*(B) , LEN (STR$ (B) )-l) : RET 
URN 

2630 ' SUBRUTINAS DE CONVERSION 
2640 CT=CT+1:M*=M*+STR$(PEEK(CT) ) :R 
ETURN 

2650 CT=CT+2: M*=M*+STR* ( 256*PEEK ( CT 
) +PEEK (CT-1 ) ) : RETURN 

2660 CT=CT+ 1 : M*=M*+5TR* ( CT- 1 - ( PEEK ( 
CT ) < 1 28 ) * ( PEEK (CT) +2) - < PEEK ( CT ) > 1 27 
) * (PEEK (CT) -254) +DF) : RETURN 
2670 ' 

2680 ' * RUTINAS DE VOLCADO DE MEMO 
RIA * 

2690 ' 

2700 ' VOLCADO SOBRE PANTALLA 

2710 f 

2720 ? HEX ADEC I MAL 

2730 FORN-D I RTOD I R+LNGSTEP 1 0 
2740 PRINTUSING "#####" | N+DF; : PRINT" 

"; 

2750 FORC=0TO9: B=PEEK (N+C) 

2760 IFB=0THENM*="##"ELSEM*=RIGHT$ ( 

,, 0"+HEX* (B) , 2) 

2770 I FC=9THENPR I NTM*ELSEPR I NTM*+ " 

2780 NEXTC, N 
2790 END 

2800 ' ASCII 

28 1 0 FORN=D I RTOD I R+LNGSTEP 1 0 
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2820 PR I NTUS I NG " ##### " ; N+DF ; : PR I NT " 

2830 FORC=0TO9: B=PEEK (N+C) 

2840 IFB=0THENC*="##"ELSEC*=" 

2850 IFB>31THENC*=RIGHT*<" "+CHR*(B 
) ,2) 

2860 I FC=9THENPR I NTC*ELSEPR I NTC$+ " 

2870 NEXTCN 
2880 END 

2890 ' HEX - ASCII 

2900 FORN=DI RT0DIR+LNGSTEP8: CH$ = " " 
29 1 0 PR I NTR I GHT* ( " 000 " +HEX$ ( N+DF ) , 4 
)+»' "; 

2920 FORC=0TÜ7 : B=PEEK ( N+C ) 

2930 I FB=0THENM$= " ## 11 ELSEM*=R I GHT* ( 

"0 ,, +HEX*(B> ,2) 

2940 I FB=0THENC*= " tt " ELSE I FB >3 1 ANDB< 

128THENC*=CHR*(B)ELSEC$=". " 

2950 CH*==CH*+C* 

2960 PRINT" "+M$; 

2970 NEXTC: PRINT" "+CH* 

2980 NEXTN 

2990 END 

3000 ' 

3010 > VOLCADO SOBRE IMPRESORA 

3020 ' 

3030 ' HEXADECIMAL 

3040 FORN-D I RTOD I R+LNGSTEP24 

3050 LPR I NTUS ING "#####" ; N+DF; :LPRIN 

T» "; 



3060 FORC=0TO23 : B=PEEK ( N+C ) 

3070 I FB=0THENM$= " tt# " ELSEM$=R I GHT* ( 

"0"+HEX*(B) ,2) 

3080 LPRINT" "+M*; 

3090 NEXTC: LPRINT: NEXTN 

3100 END 

3110 ' ASCII 

3 1 20 FORN-D I RTOD I R+LNGSTEP24 

3 1 30 Jjmi NTUS ING "#####" ; N+DF; : LPRIN 

3 1 40 FQRC--0TO23 : B=PEEK ( N+C ) 

3 150 I FB=0THENC$= " #tt " ELSE I FB >3 1 ANDB 

< 128THENC*=RIGHT$ ( " "+CHR$(B) ,2)ELS 

EC*=" 

3160 LPRINT" "+C$; 

3170 NEXTC: LPRINT: NEXTN 

3180 END 

3190 " HEX - ASCII 

3200 FORN~D I RTOD I R+LNGSTEP 1 6 : CH$= " " 
3210 LPRINTRIGHT$("000"+HEX*(N+DF) , 
4)+ M "; 

3220 FORC=0TO 1 5 : B=PEEK ( N+C ) 

3230 I FB=0THENM*= " ## " ELSEM$=R I GHT$ ( 

"0"+HEX*(B) , 2) 

3240 I FB=0THENC*= " # " ELSE I FB >3 1 ANDB< 

128THENC*=CHR* (B) ELSEC*=" . " 

3250 CH$=CH*+C* 

3260 LPRINTM*+" 

3270 NEXTC: LPRINT" "+CH* 

3280 NEXTN 

3290 END 



i Desensamblador 2-80 i 
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- 58 


190 


- 91 


370 


- 78 


550 


- 30 


730 


- 75 


910 


-155 


1 090 


- 99 


20 


- 58 


200 


-171 


330 


-129 


560 


- 67 


740 


- 60 


920 


-246 


1 1 00 


- 30 


30 


- 58 


210 


- 16 


390 


- 58 


570 


-207 


750 


- 56 


930 


-132 


1110 


- 27 


40 


- 58 


220 


- 12 


400 


-200 


580 


- 75 


760 


- si 


^40 


-170 


1120 


—224 


50 


- 58 


230 


- 58 


410 


-187 


590 


-127 


770 


-233 


950 


- £2 


1130 


-115 


60 


- 58 


240 


- 58 


420 


- 27 


600 


-126 


780 


- 72 


960 


- 68 


1 140 


- 49 


70 


-242 


250 


- 58 


430 


-206 


610 


- 67 


790 


-238 


970 


- 0 


1150 


5 


80 


-156 


260 


-142 


440 


-108 


620 


-193 


800 


-152 


980 


- 1 06 


1 160 


- 87 


90 


- 86 


270 




450 


- 26 


630 


- 81 


810 


- 51 


990 


-190 


1 170 


-160 


100 


- 61 


280 


- 0 


460 


-238 


640 


- 83 


820 


-219 


1000 


- 64 


1180 


-245 


1 10 


- 62 


290 


-254 


470 


-203 


650 


- 41 


830 


- 56 


1010 


-184 


1 190 


- 4 


120 


- 21 


300 


-209 


480 


-142 


660 


-134 


840 


-176 


1020 


-170 


1200 


-228 
" lt 


130 


-246 


310 


-139 


490 


-106 


670 


-218 


850 


-164 


1030 


- 90 


1210 


140 


- 41 


320 


-253 


500 


-122 


680 


- 50 


860 




1040 


-118 


1220 


- vJO 


150 


- 81 


330 


-165 


510 


- 63 


690 


— 5 


870 


-182 


1 050 


- 40 


1 230 


-185 


160 


-102 


340 


-209 


520 


-189 


700 


-137 


880 


-162 


1060 


~ 95 


1240 


- 97 


170 


-170 


350 


-116 


530 


-148 


710 


-134 


890 


-231 


1070 


- 17 


1250 


-211 


180 


- 61 


360 


-102 


540 


- 25 


720 


-204 


900 


-230 


1080 


-109 


(Sigue) 
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Idea de M'ideauogic 
Utiles con potencia 

m 




¡¡LA SOLUCION!! 



IDEABASE 

- Acepta formato de etiquetas. 

- Funciones de modificación, borrado y añadido de información en registros. 

- Información almacenaje en cinta o disco. 

- Capacidad de 42 K en memoria. 

- Menús conversacionales e interactivos. Máxima facilidad de uso. 

- Ordenación de registros en función de uno o mis 
campos. 

- Presentación en cartucho. 

- Gestiona disco y cinta. 

- Compatible con IDEA TEXT y DIM-CALC 



□ 




Calle Valencia, 85 - 08029 BARCELONA - Télex 54554 DLGC 
Teléfonos 253 86 93 - 253 89 09 - 253 90 45 - 253 74 00 



IDEA TEXT 

- Editor de pagina entera con control total de margenes, inden aciones, cen- 
trado, espacios, encabezados, pies de página, numerador automático, etc. 

- Permite mover, reemplazare insertar bloques de texto de una manera fácil. 

- Función de visuaRzación del texto final, permitiendo examinar cual será el 
resultado de la impresión. 

- Capacidad de 42 K en memoria. 

- Máxima facilidad de uso apareciendo constantemente 
información en la pantalla. 

- Menús comprensivos en ventanas. 

- Presentación en cartucho. 

- Gestiona disco y ciña. 

- Compatible con IDEA BASE y DIM-CAL. 



DIM-CALC 

Hoja de cálculo muy fácil de utilizar, que permite desarrollar desde cálculos 
sencillos a otros complejos y sofisticados. Compatible con IDEA TEXT e IDEA BASE. 



Delegaciones: 

Distribuidores Generales en: Almería, Badajoz, Barcelona, Bilbao, 
Cádiz, Córdoba, Gijón, Granada, La Coruña, Las Palmas, Lérida, 
Madrid, Málaga, Murcia, Oviedo, Palma Mallorca, Pamplona, Sevi- 
lla, Valencia, Valladolid, Vigo, Zaragoza, Argentina, Chile y México 



Programas 
Sony MSX, para loque 
guste ordenar. 




APLICACIONES 



MSX 



HIT 3IT 



PROGRAMAS SONY MSX 



Educativos 



■ Monkey Academy 

• Alfamat 
•Viaje Espacial 

■ Multipuzzle 

■ Noria de Números 

• Corro de Formas 

• Coconuts 

■ Yo Calculo 

• Selva de Letras 

• El Cubo 
Informático 

• Electro-graf 

• El Rancho 

■ Teclas Divertidas 

• Boing Boning 
•Compulandia 
■Mil Caras 

• Logo 

• Países Mundo-1 

• Países Mundo-2 

• Tutor 

• Computador 
Adivino 

• Aprend. Inglés-l 

• Aprend. lnglés-2 

• Cosmos 

• Curso de Básic 

• Juego de 
Números 



Juegos 



■ Antártic Adventure 

• Athletic Land 

• Sparkie 

• Juno First 

• CarJamboree 

• Battle Cross 

• CrazyTrain 

• Mouser 

• Computer Billiards 

• Alí Babá 

• Track & Field-I 
•Track&Field-ll 

• Dorodon 

• Chess (Ajedrez) 

• Senjo 

• El. 

• Lode Runner 

• Super Tennis 



• Backgammon 

• Super Golf 

• Hustler 

• Binary Land 

• Driller Tanks 

• Stop the Express 

• Ninja 

• LesFlics 

• La Pulga 

• The Snowman 
•Cubit 

• Pack 16K 

• Fútbol 

• Kung Fu 

• Batalla Tanques 

• Mr. Wong 

• Xixolog 

• Buggy 

• Sweet Acorn 

• Peetan 

• Jump Coaster 
•Buggy 84 

• 3D Water Driver 
•Pinky Chase 
•WeddingBells 

• Fightting Rider 

Aplicación 

. Memoria Ram 4 K 

• Creative 
Greetings 

• CharacterCollect 

• Quinielas y 
Reducciones 

• Pascal 

• Ensamblador 

• Generador Juegos 

Gestión 



• Hoja de Cálculo 

• Homewriter 

• Control Stocks 

■ Contabilidad 
Personal 

■ Ficheros 

■ Procesador 
de Textos 

• Control Stocks 

• Vencimientos 

• Contabilidad 
1.500 



MSX por dentro ■ 



Test de Listadoi 



■ Desensamblador Z-80 i 



1 

i x.OY.1 




1 790 


— 1 0 4 


2320 


— 1 36 


2850 


- 135 


1 ¿- / VJ 


¿-VJ 




1VJ ■_• 


2330 


— 243 


2860 


-236 


i ¿Olí' 


— ¿. J'V 


1 8 1 0 


— 1 46 


2340 


- 1 65 


2870 


... ¿4 


1 J-7VJ 


1 O Y 


1 o 4. VJ 


— 1 75 


2350 


- 172 


2880 


-129 


1 300 




1 830 


— 1 32 


2360 


-204 


2890 


- 58 


1 1 VJ 


— 1 62 


1 340 


— 1 1 5 


2370 


-207 


2900 


- 57 






1 850 


46 


2380 


7.- ° 


291 0 


-141 


1 ■_• •_• VJ 




1 360 


— 1 74 


2390 


— 173 


2920 


-138 


1 O VJ 




1 870 


— 1 24 


2400 


- 167 


2930 


-111 
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1 880 


— 1 23 


24 1 0 


- 63 


2940 


-218 


1 "TA/71 


— •...> 






2420 


— 15 


2950 


- 165 


J. O / K.' 
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— 1 O 1 


2430 


- 148 


2960 


-114 


1 380 


- 51 


191 0 


— 1 59 


2440 


— 1 20 


2970 


— 117 


l 390 


-112 


1 C f71 


— 1 42 


2450 


— 1 99 


2980 


-209 


1 4 0 0 


— 95 




— O A 


2460 


— 18 


2990 


- 1 29 


1 4 J & 


—250 


1 t *+ y. ' 


— 1 1 
1 jl 


2470 


-lia 


■3000 


- 58 


1 4 o 0 




1 950 


— 1 50 


2480 


- 1 80 


3010 


- 58 


1 430 


— 98 


1 960 


— 98 


2490 


— 1 36 


3020 


- 58 


144 0 




1 970 


- 1 90 


2500 


- 142 


3030 


- 58 


1 *4 -J VJ 


i / wj 


1 980 


— 1 73 


25 1 0 


— 69 


3040 


■r 43 


1 ¿Ai/1 


i / / 


1 990 


- 1 82 


2520 


- 75 


3050 
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3080 


-126 
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3 0 9 0 


— 1 68 
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—245 


2570 


— 1 35 


•_• I VJ VJ 


1 ¿.7 


1 520 


- 1 45 




— 1 4 1 


2580 


— 1 44 


3110 


- 58 


1 530 


— 1 5 1 


1 r7< A r 71 


— 1 45 


2590 


— 1 27 


3 1 20 


- 43 


154 0 


— 1 1 B 


2070 


— 1 5 0 


2600 


— 37 


3130 


9 


i 550 


— 1 62 


2080 


—248 


261 0 


-123 


314 0 


- 152 


1 560 


_ 1 A.£> 
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2620 


... i =¡9 


3150 


- 67 


j 55710 


— i yy. 


210 0 


~240 


2630 
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3160 


-116 


1 580 
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- 69 


3170 
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1 590 
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2 1 20 


~ 


2650 


-243 


3180 


-129 
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2 1 30 




2660 


—225 


3190 
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- 17 
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2670 


— 58 


3200 


- 63 
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-248 


2680 
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3210 


-153 
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— 1 o 


2 1 60 


— 5 
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3220 


-144 
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- 1 1 8 


2700 


- 58 


3230 


-11 1 


1 650 


— 26 


2 1 80 


— 58 


27 1 0 


- 58 


3240 


-218 


1 AAí71 




2 1 90 


- 175 


2720 


- 58 


3250 


-165 


1 670 


— 15 


2200 


- 41 


2730 


- 29 


3260 


-126 


1 OCiVJ 




22 1 0 


- 59 


2740 


-241 


3270 


-129 


1 690 


— "7 


2220 


- 238 


2750 


- 1 40 


3280 


-209 


1 700 


- 14 


2230 




2760 


-11 1 


3290 


-129 


1 7 1 0 


-182 


2240 


- 1 08 


2770 
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"227 


2250 


- 36 


2780 
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1730 


-112 


2260 


- 84 


2790 


-129 






1 740 


- 95 


2270 


-102 


2800 


- 58 






1 750 


- 47 


2280 


- 1 00 


2810 


- 29 






1760 


- 1 43 


2290 


- 87 


2820 


-241 
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- 29 


2300 


- 0 
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TOTAL: 


1780 


-158 


2310 


-117 


2840 


- 42 


39599 
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MSX software 



ASI HACEMOS 
NUESTRAS CASSETTES 



Para salir al paso de cual- 
quier atisbo de duda acerca 
de la calidad de carga de 
nuestros cassettes, pasamos 
a detallar seguidamente a 
nuestros lectores el proceso 
de confección de los cassettes 
de nuestros programas. 



Todos los lectores conocen los 
pasos previos al proceso de fa- 
bricación de nuestros cassettes, 
es decir, el diseño y la elaboración del 
mismo. Pero a partir de ese momento, 
el proceso de producción del cassette 
les es desconocido. 

La elaboración definitiva de las cintas 
de MSX CLUB DE CASSETTES tiene 
lugar en los estudios SONIDUPLEX 
EUROPA situados en Barcelona. Allí, 
Ramón Alfageme, responsable técnico 
del estudio de encarga de realizar — en 
colaboración con nuestros programa- 
dores — el «master» definitivo del pro- 
grama. 

ELABORACION DEL 
MASTER 

El proceso a seguir para la elaboración 
del master se lleva a cabo con la máxi- 
ma escrupulosidad: 

En primer lugar se carga la cabecera del 
programa en un ordenador MSX por 
parte de uno de nuestros técnicos. Acto 
seguido, se comprueba que la carga ha- 
ya sido correcta y se efectúa una prueba 
de grabación. Para ello, el programa se 
«saca» directamente del ordenador a un 
magnetófono de bobina de cinta de 1/2 
pulgada mientras Ramón se encarga de 
ajustar los vúmetros del aparato, es de- 
cir los potenciómetros que miden el 
volumen. 

Una vez, efectuado esto, se efectúa la 
grabación definitiva del primer frag- 
mento. Durante esta operación, un 
«chivato» acústico permite seguir la 
operación mientras se controla que la 
transmisión sea correcta mediante un 
osciloscopio. 

Esta secuencia de operaciones se repite 
las veces necesarias con cada una de las 
partes que constituyan el programa de- 
finitivo. Tras haber completado el mas- 
ter de la primera cara, se repiten todas 
las operaciones para la segunda, en una 
pista diferente de la cinta de 1/2". 
A partir de este momento, el trabajo de 
nuestros programadores finaliza. 
El técnico del estudio delimita el co- 



mienzo y el final de la grabación en la 
cinta de 1/2". 

Los estudios SONIDUPLEX están a la 
vanguardia en cuanto a tecnología para 
la duplicación de cassettes. Aparte de la 
profesionalidad de su personal, los apa- 
ratos que utilizan son de la electrónica 
más sofisticada, lo que asegura el con- 
trol de calidad en el proceso de fa- 
bricación. 

CAMBIO DE FORMATO 

Como queda dicho, el master se hace 
sobre cinta de 1/2". El tamaño de la 
cinta que utiliza un aparato de cassette 




ordinario es de 1/7", y para realizar la 
operación de cambio de formato, en los 
estudios se utiliza una TAPEMATIC 
5000, máquina con corazón de Z80, co- 
mo tu MSX, que efectúa la lectura a alta 
velocidad con la cinta absolutamente 
suelta en un lazo sinfín. 
Esta máquina detecta tanto el inicio co- 
mo el fin del programa, repite la opera- 
ción tantas veces como se le requiera y 
avisa de cualquier posible error. 
Conectados a esta máquina en serie, es- 
tán los «esclavos», máquinas auxiliares 
que graban las copias que se indican en 
la unidad central también a alta ve- 
locidad. 




Grabación del master a alta velocidad 


Carga de las cassettes 

Detalle de la mesa de mezclas 







yl Mili 




Quede claro que cuando hablamos de 
alta velocidad no estamos hablando de 
velocidad de transmisión de los datos 
ni de nada por el estilo, sino simple- 
mente de la velocidad a la que pasa la 



cinta por los cabezales de grabación/re- 
producción, que es nada más y nada 
menos que de 608 cm/seg. en la unidad 
central (M ASTER) y de 152 o 304 cm/ 
seg. en cada esclavo. 
Al margen de la velocidad de grabación 
— que es sorprendente — y de la canti- 
dad de copias que pueden efectuarse 
trabajando a alta velocidad, hay una se- 
rie de cuestiones que quedan resueltas 
al trabajar con este equipo, en primer 
lugar, al estar la cinta del master total- 
mente desenrollada, la electricidad es- 
tática es prácticamente inexistente. La 
cinta no sufre tensión alguna por este 
motivo y esto redunda en que no haya 
posibilidad alguna de error en cuanto 
se refiere a la transmisión del programa 
desde el master a los esclavos. 

CARGA DEL CASSETTE 

Tras haber grabado dos o tres veces el 
programa en cinta de 1/7", se realiza el 
montaje de unos cassettes de prueba. 
La primera vez que observamos este 
proceso quedamos francamente sor- 
prendidos. Esperábamos — al igual que 
mucha gente — que la inserción de la 
cinta en la carcasa del cassette se hacía 
en pequeñas bobinas que se montaban 
sobre una mitad de la carcasa y que 




Cambio de formato. Los esclavos trabajando sin parar 

Etiquetado y encelofanado tras el tiraje 




posteriormente se atornillaba o termo- 
soldaba la otra mitad de la carcasa. Na- 
da más lejos de la verdad. 
La inserción de la cinta dentro del cas- 
sette la realiza una TAPEMATIC 2000 
(figura 2), máquina que funciona me- 
diante un complicado sistema de válvu- 
las de aire comprimido que se abren y 
cierran — controladas por un Z80, que 
tiene programados catorce pasos dife- 
rentes — para, mediante la proyección 
y absorción del aire activar unos pisto- 
nes que posibilitan que las partes móvi- 
les cíe la máquina realicen una opera- 
ción tan precisa y complicada como es 
la inserción de la cinta ¡dentro de un 
cassette absolutamente cerrado! La 
operación se realiza del siguiente 
modo: 

Las cassettes vacías se colocan en un 
alimentador vertical. De ahí pasan uno 
a uno a través de unas guías hasta un eje 
bobinador, que puede girar hasta trein- 
ta metros por segundo. Paralelamente a 
esto, la cinta de las dos bobinas situadas 
a la derecha de los estuches, es arrastra- 
da por una pieza móvil hasta un sopor- 
te donde se empalma la cinta transpa- 
rente del principio que a su vez entra 
por el orificio interior de la carcasa has- 
ta empalmar con el carrete interior 
inserto en el eje bobinador, que gira 
hasta completar la carga de la cinta. 
Naturalmente, el sistema detecta el 
principio y final de cada grabación, 
además de detectar las cassettes defec- 
tuosos y rechazarlas por un orificio au- 
xiliar y avisar inmediatamente de cual- 
quier anomalía que pueda producirse 
en el sistema. 

Tras obtener las tres o cuatro primeras 
muestras, sobre el terreno se realiza la 
primera comprobación. Nuestros pro- 
gramadores disfrutan como niños pro- 
bando el primer juego salido de la má- 
quina. Se efectúa la comprobación por 
ambas caras y el resto de cintas se re- 
parten para que cada uno pueda probar 
a su antojo todas las alternativas. Si hay 
beneplácito — lo cual sucede siempre — 
se efectúa el tiraje y se empaqueta. 
Como puede verse, al margen de la se- 
guridad que ofrece el estudio, se efec- 
túa un riguroso control de nuestros 
productos, lo que redunda en beneficio 
de nuestros usuarios. 
Lamentablemente, otros — con más 
afición corsaria que informática — no 
pueden asegurar lo mismo de sus pro- 
ductos. De todos modos, la creciente 
demanda de nuestros programas por 
cada vez más usuarios, nos reafirma en 
nuestra evidente política de ofrecer ca- 
lidad a un precio más que razonable. 

EL EQUIPO DE MSX CLUB DE 
CASSETTES 
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# 



Programa , 



■ Por Manuel Mourelü! 



PAIS 

DEL CHOLLO 



Durante el "Un, Dos, Tres" se puso 
de moda un juego de tablero con el 
"chollo". Este juego inspiró este 
programa homenaje al desaparecido 
concurso de Chicho Ibáñez Serrador, 
que nos remitió Manuel. No obstante 
su buena realización puede ser mejora- 
do y ampliado por nuestros lectores. 




1 ' ****PAIS DEL CHOLLO*** 

2 ' **PGR MANUEL MOURELO** 

3 ' **** PARA MSX CLUB *** 
10 '********************** 
20 ' LECTURA DE DATOS 

30 '********************** 

40 ON STOP GOSUB 10000: STOP ON:COLO 

R 15, 1 , 1 : SCREEN 2,2,0: OPEN " GRP : " AS 

#1 

50 DIM A* (5) ,H*(30) , J*<30) ,K*<30) 
,T<30) 

55 GOSUB 2700 

60 D*=STRING*<32,255) 

70 MID*(D*, 1, 1>=CHR*<127) 

80 MID$(D*, 16, 1>=CHR$<127) 

90 MID* CD$, 17, 1 ) =CHR$ (254) 

100 MID*(D*,32, 1>=CHR*<254) 

110 SPRITE*(6)=D* 

120 FOR 1=0 TO 4:F0R J=l TO 5 : READ 
D* 

130 A*<I)=A*(I)+CHR*<VAL("S<h"+D*) ) 



140 NEXT: NEXT 

150 FOR 1=0 TO 5:D$=CHR*<0) 

160 FOR J=0 TO 5: READ D 

170 IF J=3 THEN D*=D*+CHR* ( 0 ) 

180 D*=D*+A*(D) 

190 NEXT:SPRITE*(I)=D* 

200 NEXT 

210 FOR 1=1 TO 30 

220 READ H* ( I > , J* < I > , K* ( I ) 

230 NEXT I 

240 FOR A=7 TO 9 

250 FOR 1=1 TO 32: READ T 

260 F$=F$+CHR$ (T) 

270 NEXT I:SPRITE*(A)=F* 

280 F$= " " : NEXT A 

300 ' ########################## 

310 ' DISEÑO DE LA PANTALLA 
320 * #####################&#### 
330 CLS : DD=3000 : D I =3000 : f =30 : Z 1 = 1 64 
: MI =53: Z=164: M=83: GH=0: FF=0: FA=0: FL 
=0 : COLOR 15,1,1: GOSUB 430 
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340 LINE (0,0) -(180, 140) , 15, B 
350 LINE (20, 30)- (40, 110) , 15,B:F0R E 
=30 TD 110 STEP 20 : LINE (20, E) - (40, 
E) , 15, B: NEXT E 

360 LINE (40, 20) - (60, 120) , 15, B: POR E 
=20 Tü 120 STEP 20: LINE (40, E>- (60, E 
> g 15: NEXT E 

370 LINE (60, 10) -(30, 130) , 15,B:FÜR E 
=10 TD 130 STEP 20:LINE(60,E)~<80,E 
) , 15:NEXT E 

380 LINE (80,0) -(100, 140) , 15, B:FDR E 
=0 TO 140 STEP 20:LINE(80,E)-(100,E 
) , 15 : NEXT E 

390 LINE (100, 10) -(120, 130) , 15,B:FÜR 
E=10 TO 140 STEP 20: LINE < 100, E) - (1 
20, E) , 15: NEXT E 

400 LINE (120, 20) -(140, 120) , 15,B:F0R 
E=20 TO 120 STEP 20: LINE ( 120, E) - ( 1 
40, E) , 15: NEXT E 

410 LINE < 140, 30) - (160, 110) , 15, B: FOR 
E=30 TO 110 STEP 20:LINE(140,E)~(1 
60, E) , 15: NEXT E 
420 GOTO 470 

430 Y=40: Y1=100:FOR X=30 TO 150 STE 
P 20: IF X>90 THEN Y=Y+10: Y1=Y1-10 : 
LINE(X,Y)-(X,Y1) ,8 ELSE Y=Y-10:Y1=Y 
1+10:LINE(X, Y)-(X, Yl) ,8 
440 NEXT X 

450 X=90: X 1 =90 : FOR Y=10 TO 140 STEP 
1 0 : I F Y > 1 00 THEN X = X +20 : X 1 = X 1 - -20 : 
LINE (X, Y) -CXI» Y) Y@ ELSE IF Y=50 TH 
EN X=X+10: X1=X1-10 :LINE(X,Y)- (XI, Y 
),8 ELSE IF Y>=50 THEN LINE(X,Y)-(X 

1, Y),8 ELSE X=X-20: Xl=Xl+20 :LINE(X 
, Y)-(X1,Y) ,8 

460 NEXT Y : RETURN 

470 L I NE < 1 0 , 40 ) - ( 1 9 , 40 ) , 1 : L I NE ( 1 6 1 , 
40) - ( 170, 40) , 1 

471 L I NE i 0 , 45 ) - ( 20 , 65 ) , 2 , BF 
480 LINE (0,75) -(20, 95) , 1 1 , BF 

490 L I NE ( 1 60 , 45 ) - ( 1 30 , 65 ) , 1 1 , BF : L I N 
E( 160, 75) -(180, 95) ,2,BF 
500 CIRCLE(15,55) ,3, 1 : CIRCLE ( 15, 85) 
,3, 1:PAINT<15,55) , 1 : PA INT (15, 85 > , 1 : 
CIRCLE (165, 55) ,3, 1 : PA I NT ( 1 65 , 55 ) , 1: 
C I RCLE ( 165, 85) ,3,1: PAINT ( 165, 85) , 1 
510 L I NE ( 40 , 40 ) - ( 60 , 60 ) , 1 5 , BF : L I NE ( 
40, 30) -(60, 100) , 15,BF:LINE(80,60)-( 
1 00 , 80 ) , 1 5 , BF : L I NE ( 1 20 , 40 ) - ( 1 40 , 60 ) 
, 1 5 , BF : L I NE ( 1 20 , 80 ) - ( 1 40 , 1 00 ) , 1 5 , BF 
520 FOR W=40 TO 100 STEP 20: CIRCLE ( 
30, W) ,4,7:PAINT(32,W+2) ,7:NEXT W:FÜ 
R W=30 TO 110 STEP 40: CIRCLE (50, W) , 
4, 7: PAINT (52, W+2) , 7: NEXT W:FOR W=20 
TO 120 STEP 20: CIRCLE (70, W) ,4,7:PA 
INT (72, W+2) , 7: NEXT W:FOR W=10 TO 50 
STEP 20: CIRCLE (90, W) , 4, 7: PAINT (9 

2, W+2) ,7 
530 NEXT W 

540 FOR W=90 TO 130 STEP 20: CIRCLE ( 
90, W) ,4, 7: PAINT (90, W) ,7: NEXT W:FOR 



W=20 TO 120 STEP 20 : CIRCLE ( 1 10, W) , 
4, 7: PAINT (1 10, W) ,7: NEXT W:FOR W=30 
TO 110 STEP 40 : CIRCLE ( 130, W) , 4, 7: P 
AINT ( 130, W) , 7: NEXT W 

550 FOR W=40 TO 100 STEP 20: CIRCLE ( 

150, W) , 4, 7: PAINT ( 150, W) , 7: NEXT W 

560 COLOR 1 : PSET (28, 37) , 1: PRINTttl, " 

1 1 1 1" 

570 PSET(88,7) , 1:PRINT#1, "2" 

580 PSET(68, 17) , 1:PRINT#1, "5 5" 

590 PSET(48,27) , 1:PRINT#1, "3 3 

600 PSET<28,57) , l:PRINTttl, "4 4 
4 4" 

610 PSET(88,47) , 1:PRINT#1, "1" 
620 PSET ( 43 , 67 ) , 1 : PR I NT# 1 , " 6 
6" 

630 PSET (28, 77) , 1: PRINTttl, "3 3 

3 3" 

640 PSET (88, 87) , 1 : PRINT#1 , "6" 

650 PSET (23, 97) , 1: PRINTttl, "2 2 

660 PSET (48, 107) , 1 : PRINTttl , "5 5 
5 

670 PSET (68, 117) , 1: PRINTttl, "1 1" 
680 PSET (88, 127) , 1: PRINTttl, "4 " 
690 PSET (173, 53) ,0: PRINTttl, "2": PSET 
(173,82), 0: PRINTttl, "1" 
700 COLOR 15:PSET ( 200, 85) , 1 : PRINTtt 
1 , "TI ME . " : PSET ( 200 , 95 ) , 1 : PR I NTtt 1 , " 3 
0 | 00" 

710 L I NE (197, 93 ) - ( 240 , 1 03 ) , 1 5 , B 

720 PUT SPRITE 7 , ( 32 , 62 ) , 1 , 7 

730 PUT SPRITE 8 , ( 82 , 62 ) , 1 5 , 8 

740 PUT SPRITE 9,(Z,M),2,9 

750 PUT SPRITE 10, (Z1,M1) , 11,9 

760 ' tttttttttttttttttttttttttttttttttttttttttttttt 

770 ? BUCLE GENERAL 

780 » #tttttttttt###tttttttttttttttttttt##tt# 

790 X=0 : Y=0 : E=0 : CT= 1 : S*= " C 1 5R6U3R3H 

6G6R3D8" 

800 CO=0: CT=CT+1 : A=CT/2: IF FIX(A)=A 

BS(A) THEN PA=1 ELSE PA=2 

810 IF FF=1 AND FI=1 THEN PA=2 ELSE 

IF FF=1 AND FI=2 THEN PA=1 
820 LINE (185,0) -(250, 45) , 1,BF: COLOR 

15: PSET (190, 10) , 1 
830 PRINTttl, "Jug. " ; PA 

840 LINE ( 190, 34) - (234, 45) , 1 , BF: PSE 
T (190,25) , 1: PRINTttl, "DÍ ÑERO" : PSET 
(190,35) , 1: IF PA=1 THEN PRINTttl, DI 
ELSE PRINTttl , DD 
850 GOSUB 1080 

860 W*=INKEY*:IF W*="" THEN 860 
870 LINE (185, 45) -(255, 80) , 1,BF:BEE 
P 

880 IF W*=CHR*<30) THEN DRAWBM220, 

64A0 " : DRAW S* : K*= " A" : GOSUB 930 

890 IF W$=CHR*(29) THEN DRAW"BM220, 

64A1":DRAW S*: K*=" I ": GOSUB 930 

900 IF W*=CHR*(31) THEN DRAW"BM226, 
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62A2":DRAW S$ : K*= " B " : GOSUB 930 
910 IF W*=CHR*<28) THEN DRAWBM220, 
58A3":DRAW S* : K*= " D" : GOSUB 930 
920 GÜTÜ 860 
930 CO=CO+l 

940 IF K*="A" AND PA=1 THEN M=M-10 

ELSE IF K*="A" THEN M1=M1-10 

950 IF K*="I" AND PA=1 THEN Z=Z-10 

ELSE IF K*="I" THEN Z1=Z1»10 

960 IF K*="B" AND PA=1 THEN M=M+10 

ELSE IF K*="B" THEN M1=M1+10 

970 IF K*="D" AND PA=1 THEN Z=Z+10 

ELSE IF K$="D M THEN Z1=Z1+10 

980 IF PA=1 THEN PUT SPRITE 9,<Z,M> 

9 2, 9 

990 IF PA=2 THEN PUT SPRITE t&,<Zl, 
MI ) , 1 1 , 9 

1000 IF Z=14 AND M=53 THEN GÜSUB 20 

10 

1010 IF Zl=14 AND MI =83 THEN GÜSUB 
2010 

1020 IF CO=>N+l AND PA=1 AND FFOl 
AND GHOl THEN GOSUB 1780: GOTO 800 
1030 IF C0=>N+1 AND PA=2 OR FF=1 AN 
D C0=>N+1 OR GH=1 AND C0=>N+1 THEN 
GOSUB 1780: LINE ( 1 90 , 1 0 ) - ( 250 , 45 ) , 1 
,BF: COLOR 15:PSET ( 1 85 , 1 0 ) , 1 : PR I NT# 
l,"Anti":PSET<205,22) , 1:PRINT#1, "Ch 
olio": GOSUB 1 050 : GOSUB 1200 : GOTO 8 

00 

1040 RETURN 

1 050 ^ *********************** 

1060 ' SUBRUTINA DEL DADO 
1070 ' *********************** 

1080 S=0:D=1 
1090 A=50 

1100 FOR 1=0 TO 16 

1110 N=INT (RND ( -TIME) *6) 

1 1 20 A*= " L 1 6T250N " +STR* ( A ) : A=A~ 1 

1130 PLAY A* 

1140 PUT SPRITE 0, (205, 125) ,8, N 
1150 PUT SPRITE 1, (205, 125) , 15,6 
1160 IF BN=1 THEN BN=0: RETURN 
1170 FOR J=0 TO 36:NEXT 
1180 NEXT 
1190 RETURN 

1 200 " *************************** 
1210 ■ SUBRUTINA DEL ANTI CHOLLO 
1 220 7 *************************** 
1230 ON N+l GOTO 1240,1260,1280,130 
0, 1320, 1340 

1240 N1 = INT (RND (-TIME) *7) : IF N1=W1' 
THEN 1240 ELSE Wl=Nl:ON NI GOTO 136 
0, 1370, 1380, 1390, 1400, 1410, 1420 
1250 GOTO 1230 

1260 N2=INT (RND (-TIME) *5) : IF N2=W2 
THEN 1260 ELSE W2=N2:0N N2 GOTO 144 
0, 1450, 1460, 1470, 1480 
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1270 GOTO 1230 

1280 N3=INT (RND (-TIME) *7) : IF N3=W3 
THEN 1280 ELSE W3=N3:0N N3 GOTO 150 
0, 1510, 1520, 1530, 1540, 1550, 1560 
1290 GOTO 1230 

1300 N4=INT (RND (-TIME) *5) : IF N4=W4 
THEN 1300 ELSE W4=N4:0N N4 GOTO 158 
0, 1590, 1600, 1610, 1620 
1310 GOTO 1230 

1320 N5=INT (RND (-TIME) *5) : IF N5=W5 
THEN 1320 ELSE W5=N5:0N N5 GOTO 164 
0, 1650, 1660, 1670, 1680 
1330 GOTO 1230 

1340 N6=INT (RND (-TIME) *3> : IF N6=W6 

THEN 1340 ELSE W6=N6:0N N6 GOTO 170 

0, 1710, 1720 

1350 GOTO 1230 

1360 X=22: Y=32: GOTO 1730 

1370 X=62: Y=32:G0T0 1730 

1380 X=102: Y=32: GOTO 1730 

1390 X=142: Y=32: GOTO 1730 

1400 X=82: Y=42: GOTO 1730 

1410 X=62: Y=112:G0T0 1730 

1420 X=102: Y=l 12: GOTO 1730 

1430 ' 

1440 X=82: Y=2:G0T0 1730 
1450 X=22: Y=92:G0T0 1730 
1460 X=62: Y=92:G0T0 1730 
1470 X=102: Y=92:G0T0 1730 
1480 X=142: Y=92:G0T0 1730 
1490 ' 

1500 X=42: Y=22:G0T0 1730 
1510 X=82: Y=22:G0TÜ 1730 
1520 X=122: Y=22:G0T0 1730 
1530 X=22: Y=72:G0T0 1730 
1540 X=62: Y=72:G0T0 1730 
1550 X=102: Y=72:G0TO 1730 
1560 X=142: Y=72: GOTO 1730 
1570 > 

1580 X=22: Y=52: GOTO 1730 
1590 X=62: Y=52 : GOTO 1730 
1600 X=102: Y=52:G0T0 1730 
1610 X=142: Y=52:G0T0 1730 
1620 X=82: Y=122: GOTO 1730 
1630 ' 

1640 X=62: Y=12:G0T0 1730 
1 650 X = 1 02 : Y= 1 2 : GOTO 1 730 
1660 X=42: Y= 102: GOTO 1730 
1670 X=82:Y= 102: GOTO 1730 
1680 X=122: Y=102:GOTO 1730 
1690 ' 

1700 X=82: Y=82:G0T0 1730 

1710 X=42: Y=62:G0T0 1730 

1720 X=122: Y=62: GOTO 1730 

1730 PUT SPRITE 7, (X, Y), 1,7 

1740 PUT SPRITE 8, (X, Y), 15, 6 

1750 IF Z>X-2 AND Z<X+18 AND M>Y-2 

AND M<Y+18 THEN PUT SPRITE 9,(164,8 
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3) ,2,9:HY=1:G0SUB 2010 

1760 IF Zl>X-2 AND ZKX+1B AND M1>Y 

-2 AND M<Y+18 THEN PUT SPRITE 10,(1 

64,53) , 11,9: HY=2: GOSUB 2010 

1770 FOR 1=1 Tü 1000: NEXT I : RETURN 

1780 ? *************************** 

1790 ? SUBRUTINA DE PREGUNTAS 

1800 ' *************************** 

1810 E=INT(RND(-TIME)*31) 

1820 IF DS=>31 THEN FOR 1 = 1 Tü 31 :T 

(I)=0:NEXT I:DS=0 

1830 IF E=T(E) THEN D5=DS+1:G0T0 18 
10 ELSE T(E)=E 

1840 PSET ( 0 , 1 50 ) , 1 : FOR C=l TO LEN ( J 
*<E> )+l 

1850 FOR A=l TO 5: FOR B7.= l TO 1 : NEX 
T B7.:NEXT A 

1860 IF MID*(J*(E> , C, 1)="' " THEN PR 
INTttl , CHR* ( 13) : NEXT C 

1870 IF MID$(J*(E) ,C, 1)="\"THEN PRI 
NTttl , " " ; : NEXT C 

1880 COLOR 15:PRINTttl, MID*(J*(E),C 
, 1) ; : NEXT C:T1=0 

1890 IF H*(E)="CHO" THEN BN=1:N=5:C 
0=0: GOSUB 1140 : FOR 1=1 Tü 500 : NEXT 
IsLINE (0, 150) -(255, 191) , l,BF:GOTO 
860 

1 900 J I *= I NKE Y* : PSET ( 200 , 95 ) , 1 : PR I N 
Ttt 1 , US I NG " tttt ! tttt " ; T ; T 1 : T 1 =T 1 - 1 0 : L I NE 
(220, 94) - (239, 102) , 1 , BF: IF TK0 TH 
EN T1=60:T=T-1:LINE (200, 94) - (215, 1 
02) , 1,BF 

1910 IF T<0 THEN 1970 

1920 IF JI*="" THEN 1900 

1930 IF H*(E)="PRU" AND T>0 AND STR 

IG(0)=-1 THEN 1960 

1940 IF H*(E)="PRE" AND JI*=K*(E) T 
HEN 1960ELSE IF J I $< > " A " AND J I $< > " B " 
AND J I *< > " C " AMD J I *< > " D " THEN 1 900 
1950 GOTO 1970 

1 960 LINE < 0 , 1 50 ) - ( 255 , 1 9 1 ) , 1 , BF : PSE 
T(50, 160) , 1:PRINT#1, "C O R R E C T 
O": PLAY"CDEFGAB" : FOR T=l TO 1600:N 
EXT T:IF PA=1 THEN D I =D I + 1 000 : GOTQ 
1980 ELSE DD=DD+ 1000: GOTO 1980 
1970 LINE(0, 150) -(255, 191) , 1,BF:PSE 
T (50, 160) , 1 : PRINT#1 , " I N COR R E 



OTO " : PLAY"02BAGFEDC " : FOR T=l TO 
1600:NEXT T: IF PA=1 THEN DI=DI-1000 
: FL=FL+ 1 ELSE DD=DD- 1 000 : FA=FA+ 1 
1980 IF FL=3 OR FA=3 THEN GOSUB 201 
0 ELSE LINE (0, 150) -(255, 191) , 1,BF:L 
INE(19B,94)-(239, 102) , 1,BF:T=30 
1 990 PSET ( 200 , 95 ) , 1 : PR I NT# 1 , " 30 ! 00 

2000 RETURN 

2010 ' ********************** 

2020 ' SUBRUTINA FINAL 

2030 : ********************** 

2040 IF FL=3 THEN PUT SPRITE 9,(164 

,83) ,2,9:FI=1:FL=0:GOTO 2090 ELSE I 



F FA=3 THEN PUT SPRITE 10,(164,53), 
11,9:FI=2:FA=0:GOTO 2090 
2050 IF Z=14ANDM=53THENFI=1:G0T0 21 
1 0ELSE I F 7. 1 = 1 4ANDM 1 =83THENF 1=2: GOTO 
2 1 1 0 

2060 IF HY=1 THEN F I = 1 : HY=0 : GOTO 22 
40 

2070 IF HY=2 THEN F I =2: HY=0 : GOTO 22 
40 

2030 RETURN 

2090 IF FF=1 THEN 2210 ELSE LINE (0 
, 150) -(255, 191) , 1,BF:PSET (20, 150) , 
1 :PRINT#1 , "El jugador nfi» ;FI;"a per 
dido por cometer tres fallos 

. ":PRINTttl," El otro continua el j 
uego. " 

2100 FOR 1=1 TO 1500: NEXTI: LINE (0, 1 
50) -(255, 191) , 1,BF:FF=FF+1:T=30:RET 
URN 

2110 PLAY"01L64CDEFGAB02CDEFGAB" , "O 

3L64CDEFGAB04CDEFGAB " , " 05L64CDEFGAB 

Ü6CDEFGAB" 

2120 GOSUB 30000 

2130 PSET (10,20) , lrPRINTttl, " HA GA 

NADO EL JUGADOR N£";PA 

2140 PSET (10, 40) , 1:PR INTttl, " CON UN 

TOTAL DE";:IF PA=1 THEN PRINTttl, D 
I;"Ptas " ELSE PR INTttl , DD; "Ptas" 
2 1 50 PSET (10, 60 ) , 1 : PR I NTtt 1 , " MAS UN 

BONUS DE 10000 Ptas. " 
2160 PSET (10, 180) , 1:PR INTttl, "¿GUIE 
RE VOLVER A JUGAR (s/n)?" 
2170 A*=INKEY*:IF A*="" THEN 2170 
2180 IF A*="S" THEN RETURN 300 
2190 IF A*="N" THEN NEW 
2195 IF A*=CHR*(8) THEN END 
2200 GOTO 2170 
2210 GOSUB 30000 

2220 PSET (10,20) , 1:PR INTttl, " HAS P 
ERDIDO POR HABER FALLADO TRE 
S VECES . " 
2230 GOTO 2160 

2240 PL A Y " T200O4L8GR8L8GR8L8GR8L 1 E " 
, "T200O3L8GR8L8GR8L8GR8L1E", "T200O2 
L8GR8L8GR8LBGR8L 1 E " 

2250 IF FF=1 THEN 2270 ELSE LINE(0, 
150) -(255, 191) , 1, BF: PSET (20, 155) , 1: 
PRINTttl,"El jugador n2" ; Fl ; "deja de 

jugar" : PSET (20, 166) , ti PRI NTtt 1 , "Se 

lo comió el ANTICHOLLO. " 
2260 FORI=l TO 1300: NEXT I: LINE (0,1 
50) -(255, 191) , 1,BF:FF=FF+1:T=30:RET 
URN 

2270 GOSUB 30000 

2275 PSET (10, 20) , 1 : PR INTttl, "HAS PER 

DIDO POR QUE TE HA COMIDO EL AN 

TICHOLLO":GOTO 2160 

2280 '********************* 

2290 ' DATOS- PREGUNTAS 

2300 ' ********************* 

2310 DATA 0,0,0,0,0,1,3,3,1,0 
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2320 DATA 80 ,c0, c0 , 80 , 0 , 30 , 78 
2330 DATA 78 , 30 , 0, c, le, le, c, 0 
2340 DATA 0 , 1 , 0 ,0,2, 0 , 3 , 0 , 0 , 0 , 0 , 4 
2350 DATA 3,1,0,0,2,4,3,0,3,4,0,4 
2360 DATA 3,1,3,4,2,4,3,3,3,4,4,4 
2370 DATA PRE , ¿CUAL ES ELLog. DE"1 
" ?' A i NO HAY VBI ES " 1 "' C ! ES "0"\D 
! ES INFINITO, C 
2380 DATA PRU , PRUEBA ' REAL.I ZAR 10 FL 
EXIONES,0 
2390 DATA PRE, ¿FECHA DESCUBRIMIENTO 

AMERICA?' A ! MARZO 1 872\B ! OCTUBRE 1 
750' C¡ OCTUBRE 1492\D¡ JUNIO 1567, C 
2400 DATA PRU, PRUEBA' HACER UN AVION 

DE PAPEL, 0 
2410 DATA PRU, PRUEBA' ESCRIBIR SU NO 
MBRE DE Dere/Izqu. ,0 

2420 DATA PRE, ¿QUIEN GANO LA LIGA 7 
3-74?' A! ANDORRA \B ! R. MADRID' C¡ BAR 
SAXD! AT. BILBAO, C 

2430 DATA PRU, PRUEBA ' REAL I ZAR 10 AB 
DOMINALES, 00 k 

2440 DATA PRE , ¿ESCR I TOR "EL MECANOS 
CRIT'DEL SEGON OR I GEN?\A ! CERVANTES 
'B\ M.PEDROLOXC! JOSE de LARRA, B 
2450 DATA PRU , PRUEBA ' CANTAR UNA CAN 
CION ,0 

2460 DATA PRE , ¿OL I MP I ADAS DEL 72?' A 
¡LOS ANGELESXB! BERLIN' C ! MUNICHXD ¡ P 
ARIS, C 

2470 DATA PRU , PRUEBA ' COMER UN POLVO 
RON Y DECIR 333,0 

2480 DATA PRU , PRUEBA ' REAL I ZAR 9 NUD 
OS MARINEROS, 0 

2490 DATA PRE, ¿QUE PELICULA ESPAmOL 
A LOGRO UN' OSCAR? A! ASIGNATURA PEN 
DIENTE' B! CARMEN \C ! VOLVER A EMPEZA 
R, C 

2500 DATA PRU, PRUEBA' ATAR AL CONTRA 
RIO ,0 

510 DATA PRU, PRUEBA' HACER UNA LOCU 
CION DE UN' PARTIDO FUTBOL, 0 
2520 DATA PRU, PRUEBA 'ESCRIBIR UN VE 
RSO,0 

2530 DATA PRE , ¿D I SEmADOR "SAGRADA F 
AMILIA"?' A! DAL I \B ! GAUDI'C! SOFIA 
LORENXD! PICASSO, B 

40 DATA CHO, CHOLLO AVANZA 6 CASIL 
LAS. 5 

2550 DATA PRE, ¿COMO SE LLAMA EL VOL 
CAN DE 'COLOMBIANA ! TEIDEXB! RODOL 
FO'C! TITICACAXD! NEVADO DEL RUIZ 
, D 

560 DATA CHO, CHOLLO AVANZA 6 CASIL 
LAS, 5 

2570 DATA. PRE, ¿QUE FUE E I NSTE I N?' A ! 

politicoxb: biologo'c: fisicoxdi f 
utbqlista,c 



2580 DATA CHO, CHOLLO AVANZA 6 CASIL 
LAS, 5 

2590 DATA PRE, ¿LA PRIMERA NAVE QUE 
PISO' LA LUNADA! COLUMBIA'B! APOLO 
\C¡ TITANIC, B 
2600 DATA CHO, CHOLLO AVANZA 6 CASIL 
LAS, 5 

2610 DATA PRE, ¿NOMBRE DE LA HIJA DE 
JULIO ' IGLESIAS^XA! ESTEFAN I A ' B ! C 
HABELINC! CARMEN, B 
2620 DATA CHO, CHOLLO AVANZA 6 CASIL 
LAS, 5 

2630 DATA PRE, ¿PAIS DONDE DICTA PIN 
OCHET?'A! ARGENTINAXB! BRASIL' C! UR 
UGUAYXD! CHILE, D 

2640 DATA PRU , PRUEBA ' CONTAR DE 30 
A 0 SOLO LOS PARES, 0 

2650 DATA PRU , PRUEBA ' HACER UN BARCO 

DE PAPEL, 0 
J660 DATA PRE, ¿ESTADIO LA FINAL EUR 
OPEA 85^' A! HEYSELXB! JOAN GAMPER'C 
! AZTECAXD ! BERNABEU, A 
2670 DATA 0,1,3,3,3,15,7,13,31,63,6 
2,61,27, 15,7,3,0,224, 192, 128, 128,22 
4, 192, 160,224,240, 120, 184,208,240,2 
24, 192 

2680 DATA 255,254,252,252,252,240,2 
48,242,224, 192, 193, 194,228,240,248, 
252,255,31,63, 127, 127, 31 , 63, 95, 31 , 1 
5, 135,71,47, 15,31,63 

2690 DATA 224,224,224,0,0,0,0,0,0,0 
, 0,0, 0, 0,0,0, 0,0, 0, 0, 0, 0, 0, 0,0,0,0, 

0 , 0 , 0 , 0 , 0 

2700 ' ************************** 

2710 ' PRESENTACION 

2720 ' ************************** 

2723 WE$="L6403GDEAD04DFECDFAGA05DE 

AGDEFADEFDEFDEADEFDEADEFAFFADEADCCF 

2725 PLAY WE*:FOR 1=6 TO 15 

2730 COLOR I:PSET (40, 40) , 1 : PRINTttl 

, "EL PAIS DEL ANTICHOLLO " : NEXT : CO 

LOR 14: PSET ( 1 1 0, 90) , 1 : PR INT# 1 , "PO 

R " : PSET ( 90 , 1 20 ) , 1 : PR I NTtt 1 , " M . MOURE 

LO" 

2737 PLAY" 05FDECDADFAEFACDDFDA " 

2738 PLAY"05FDECDADFEEFACDDFDA " 
2740 FOR I=~15 TO 255STEP 3: RUT SPR 
ITE 1 1 , ( I , 170) , 7, 7: IF 1=42 OR 1=84 
□R 1=126 OR 1=168 OR 1=210 OR 1=252 

THEN PSETí 1-40, 172) , 1: COLOR 8:PRIN 
T#l , "Come" 

2750 NEXT: CLS: COLOR 15,1,1 

2760 PSET (70, 10) , 1:PRINT#1, "INSTRUC 

CIONES" 

2770 PRINT#1 , " 

W " 

?730 PSET (30, 40) , 1:PRINT#1, "La -fich 
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a la puedes mover ": PRINT# 
J 11 con las teclas del c 
NT#1, :PRINT#1, M Para re 
s preguntas" : PRINTttl , : PRI 
i enes que pulsar la letra 
,:PRINT#1," correcta y 
ruebas " 

2785 PRINT#1, :PRINT#1, " 
barra. " :PRINT#1 , :PRINT#1 
come o cometes tres": PRI 
T#l ¡ ," errores pierdes" 
2787 PR I NT# 1 , : PR I NTtt 1 , " — 

W " 

2790 RETURN 



X, :PRINT#1 
ursor " : PRI 
sponder la 
Nt#ij" T 
: PRINT#1 
para las p 

pulsar la 
" Si te 
NT#1, :PRIN 



10000 GÜSUB 30000 

10010 PSET (15, 170) , tiPRINf#i; "¿Quie 

re jugar otra vez (S/N)?" 

10020 A*=INKEY*:IF A*="" THEN 10020 

10030 IF A$="S" THEN RETURN 300 

10040 IF A*="N" THEN NEW 

10050 IF A*=CHR*<8> THEN END 

10060 GOTO 10020 

30000 PUTSPR I TE0 , ( 205 , 1 25 ) , 0 , N : PUTS 
PRITE1, (205, 125) , 0, 6: PUTSPR ITE7, (X, 
Y) , 0, 7: PUTSPR ITE8, (X, Y) , 0,8: PUTSPR I 
TE9, (2,M) , 0, 9: PUTSPR I TE 10, (Z1,M1) ,0 
, 9: CLS: RETURN 
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MSX comunicación^ 



iPor Juan Ortega"" , 



RS-232, EL 
TELEFONO DEL 
ORDENADOR 



Este es uno de los periféricos 
más interesantes con que 
puede contar cualquier orde- 
nador, ya que su misión es la 
transferencia y recepción de 
datos. 




Todos podemos imaginar que 
cualquier ordenador en su traba- 
jo interno está perfectamente 
organizado y sabe cómo transferir da- 
tos e instrucciones entre las diferentes 
partes del mismo (memoria, CPU, uni- 
dades de entrada/salida, etc.), pues de 
los contrario debemos pensar que no 
funcionaría demasiado correctamente; 
por otra parte a la mayoría de usuarios 
no le preocupa saber con demasiada 
exactitud cómo lo hace, sino que sim- 
plemente se conforma con que el orde- 
nador se organice adecuadamente. 
Pero ese mismo usuario típico que se 
desentiende de la organización interna 
del ordenador, puede desear en un mo- 
mento dado, comunicar con otro orde- 
nador de igual o diferente marca y mo- 
delo ;a si partimos de que hay y habrán 
muchos ordenadores diferentes, llega- 
remos a la conclusión de que necesita- 
mos definir y diseñar «algo» que abra 
una vía de comunicación que todos los 
ordenadores entiendan. 
Todos los ordenadores disponen de ca- 
nales de comunicación con periféricos, 
siendo entre otros: 

Interfaz de impresora paralelo CEN- 
TRONICS. 

Interfaz de Unidad de Disco. 
Interfaz de Cassette. 
Interfaz de monitor y/o televisor. 
Interfaz serie de comunicaciones (di- 
versos tipos), etc. 

Vamos a intentar estudiar en este y su- 
cesivos artículos el interfaz serie cono- 
cido como RS-232 (¡quien no ha oído 
hablar de él alguna vez!). Para ello co- 
menzaremos diferenciando el concepto 
serie y paralelo. 

Los datos e instrucciones sabemos que 
están compuestos por bits (8, 16 o 32 
según el microprocesador utilizado) y 
los mismos pueden viajar en serie o en 
paralelo. 

PARALELO: Las transferencias se ha- 
cen de 8 en 8 bits (o 16 o 32). 
SERIE: Las transferencias se hacen bit 
a bit. (Véase Figura 1) 
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En el interior de un ordenador las co- 
municaciones (entre CPU y memoria 

Í>or ejemplo) suelen efectuarse en para- 
do, lo cual da mayor velocidad pero 
sólo es práctico para transferencias a 
distancias cortas. Para comunicaciones 
a distancia superiores a 1 o 2 metros se 
recurre a un «interfaz serie», el cual nos 
da una menor velocidad, pero nos sim- 
plifica las cosas a la hora de transferir 
datos y/o instrucciones a cierta distan- 
cia. 

Si una interfaz serie se diseña para co- 
municaciones de un ordenador con el 
mundo exterior, lo lógico sería pensar 



cuentra el INTERFAZ RS-232. 

EL INTERFAZ SERIE 
RS-232 - COMO SURGE 

Este interfaz se desarrolló en su día pa- 
ra normalizar la conexión de un Orde- 
nador a un Modem telefónico (ya vere- 
mos en próximos artículos qué es eso 
de modem) y de un Terminal de entra- 
da de datos a un Ordenador grande. 
Posteriormente al surgir pequeños 
ordenadores domésticos, se intentó 
utilizar el standard RS-232 para comu- 
nicar los mismos con una gran variedad 



particulares; y aquí es donde surgen a 
veces dificultades que nos pueden lle- 
var a la desesperación, y a pensar que el 
standard no es tal. 

No nos desanimemos, pues nada mejor 
que conocer algunos detalles del mis- 
mo, para poder entender posibles pro- 
blemas y sus soluciones, a la hora de 
conectar dos dispositivos mediante el 
RS-232. 



EL MODELO RS-232C 

Ya hemos dicho con qué finalidad se 
define el Interfaz serie RS-232C, que 





DISPOSITIVO 
1 



PARALELO 



DISPOSITIVO 
2 



DISPOSITIVO 
1 


ornmo ofnm 


DISPOSITIVO 
2 




SERIE 



FIGURA 1 

en un diseño de algo normalizado, para 

3ue independientemente del fabricante 
e. los dispositivos, éstos sean interco- 
nectables sin necesidad de acoplamien- 
tos particulares. En este caso se en- 




de periféricos, e incluso entre ellos mis- 
mos; de aquí y dado que no todos los 
dispositivos se adaptan perfectamente a 
las reglas definidas en el interfaz, hubo 
que adaptar dichas reglas para casos 



queda claro de la lectura de su defini- 
ción: 

Conexión entre un Equipo Termi- 
nal de Datos y un Equipo de Comu- 
nicaciones de Datos, mediante un 
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intercambio en serie. 
En la definición se habla de dos dispo- 
sitivos, lo cual es importante que quede 
claro, pues se van a utilizar mucho: 
Equipo Terminal de Datos, en inglés 
Data Terminal Equipment o DTE. 
Además de la definición anterior, hay 
que definir varios otros parámetros, a 
saber: 

Características eléctricas: Aquí se defi- 
nen los niveles de voltaje de las señales 
de la conexión. El Standard define emi- 
sores y receptores no balanceados de 
nivele entre +/ — 3 V a +/ — 25 V. 
Características mecánicas: Aquí se des- 
cribe el formato mecánico del conector 
, a utilizar. El Standard establece el co- 
nector conocido como DB-25 que po- 
demos ver en la figura 2. 

Definición funcional de las señales: 
Aquí se definen las funciones a efectuar 
por cada uno de los pines de la cone- 
xión, los cuales son: 

Tierra de protección. 
Retorno común. 
Dato transmitido. 
Dato recibido. 
Petición de emisión. 
Preparado para emisión. 
Preparado el equipo de comunicacio- 
nes. 

Terminal de datos preparado. 
Detector de señal de línea recibida. 
Detector de calidad de señal. 
Selector de velocidad en el terminal. 
Selector de velocidad en el equipo de 
comunicaciones. 

Elemento de sincronismo de señal en el 
terminal. 

Elemento de sincronismo de señal en el 
modem. 

Elemento de sincronismo de señal en el 
receptor. 

Datos transmitidos (canal de retorno). 
Petición- de transmisión (canal de retor- 
no). 

Preparado el canal de retorno. 
Detector de señal de línea recibida. 
Detector de llamada. 
Estas son las 21 señales que RS-232C 
especifica para la comunicación entre 
un terminal y un modem, pero de ellas 
rara vez se utilizan más allá de ocho, 
que serán las que estudiaremos en de- 
talle. 

De las tres definiciones anteriores, a 
veces no coincidirán ni la forma del co- 
nector, ni los niveles de señal; la fun- 
ción de las pantallas, en el caso de que 
no se trate de la conexión de un termi- 
nal a un equipo de comunicaciones 
(modem), también requerirá de adapta- 
ciones. 



FIGURA 2 



¡O sea que vaya un Standard! 

SEÑALES MAS 
UTILIZADAS EN RS-232C 

A continuación se da el nombre y sím- 
bolo de las señales más utilizadas de las 
21 que define el standard: 



PATILLA FUNCION 



Hemos incluido debajo la nomenclatu- 
ra inglesa de las señales porque fácil- 
mente el lector se encontrará con un 
manual en inglés en muchos casos, y 
además muchos autores prefieren man- 
tener a veces la denominación inglesa. 
Veamos una pequeña explicación de 
cada una de las «OCHO GRANDES 



SIMBOLO 



1 Tierra de protección 

2 Dato transmitido TDX 

(Transmit Data) 

3 Dato recibido RXD 

(Receive Data) 

4 Petición de emisión 

RTS 

(Request to Send) 

5 Preparado para emisión C ^S 

(Clear to Send) 

6 Preparado el equipo de comunicaciones DSK 

(Data Set Ready) 

7 Masa de señal (retorno) 

8 Detector de señal de línea recibida DCD ° c & 

(Carrier Detect) 

O Terminal de datos preparado DTR 
(Data Terminal Ready) 



PATILLA FUNCION SEÑAL DIREC CION 

2 DATOS TXD De DTE a DCE 

3 DATOS RXD De DCE a DTE 

4 CONTROL RTS De DTE a DCE 

5 CONTROL CTS De DCE a DTE 

6 CONTROL DSR De DCE a DTE 
8 CONTROL DCDoCD De DCE a DTE 

20 CONTROL DTR De DTE a DCE 
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DEL RS-232C»: 

TXD — Transmite datos del DTE al 
DCE. 

RXD — Transmite datos del DCE al 
DTE (recibe el DTE). 

RTS — Señal de propósitos genera- 
les. Normalmente se utiliza 
para indicar el DTE al DCE 
que está listo para enviar da- 
tos. 

CTS — Señal de propósitos genera- 
les. Normalmente es como 
RTS pero del DCE al DTE. 

DSR — Indica al DTE que el DCE 
está conectado y listo para 
funcionar. 

DCD — Suele utilizarse para indicar 
al DTE que el DCE está re- 
cibiendo bien. 

DTR — Indica al DCE que el DTE 
está conectado y listo para 
funcionar. 

Veamos por último un cua- 
dro resumen de las señales 
en el que indicamos la direc- 
ción de cada una de ellas (si 
van de DTE a DCE o vice- 
versa): 




Programas i 



■Por Angel Toribio i 



MEMORY 



El tradicional juego de las 
parejas que pone a prueba la 
capacidad de retentiva. El 
programa tiene excelentes 
gráficos y es ágil en su ejecu- 
ción. David, el gnomo te 
ayudará. Es para que jue- 
guen dos jugadores. 




10 *************** ttttt***********.* 
* 

20 ' * MEMORY 

30 * *<c> Angel Toribio San Agustin 
* 

40 '* Para MSX-CLUB 



50 ' ******************************* 
* 

60 ' 
70 * 

8 0 9 

90 ' 



DIMENSIÜMADO 
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100 ' 

110 DIM X(16) ,GR*<60> ,ST*(60) ,A(60> 
1 20 COLOR 2,1,1 
130 FOR T=l TO 10 
1 40 KEY T , " " 
150 NEXT T 

160 SCREEN 2, , 0: QPEN"GRP: "AS#1 

170 ' 

180 ' presentación 

200 » MUSICA 

210 M1*="T90V12O4L6FB-O5DO4B-FB-GAL 

32FR32FR32AR32AR32AR32AR32AR32AR32A 

R32GR32FR32FR32GR32AR32B- " 

220 M2*="T90 V903L6FB-FB-FB-FAFAFAF 

B-F02B-5 

230 PLAY M1*:PLAY M1*,M2* 

240 » 

250 ? cartel 

260 ' 

270 L1*="C11E3R14F6D22G9L14H6U22E6R 
1 4F6D22C 1 L6C 1 1 EL 1 0H4U 1 8ER 1 0F4D 1 8G4L 
10H4U18E3" 

280 PSET( 142,30) , 1 : DRAW Ll* 
290 PAINT (147, 28) , 11 
300 PAINT (142, 40) , 11 

3 1 0 L2*= "Cl 1 R26D6L20D8R9D6L9D8R20D6 
L26U34E3R26D6G3L 1 7D5R9D6G3L6D5R20D6 
G3" 

320 PSET (62, 30) , 1 : DRAW L2* 
330 PAINT (67, 29) , 1 1 
340 PAINT (70, 40) , 1 1 
350 PAINT (70, 55) , 11 

360 L3*= " C 1 1 R 1 9F6D6G6L2F8D8L6U5H 1 1 L 

2C 1 U4C 1 1 U 1 0R 1 0F3D4G3L 1 0C 1 E3C 1 1 U7D7R 

1 0G3L 1 0C 1 D4C 1 1 D 1 6E3U 1 2D 1 2G3L6U34E3R 

19F6D6G7F7D8G3" 

370 PSET (173, 30) , 1: DRAW L3* 

380 PAINT ( 181 , 28) , 1 1 

390 PAINT ( 181,37) , 11 

400 PAINT (181, 55) , 11 

410 PAINT (196, 50) , 11 

420 L4*="C1 1E3R7F6E6R7D34G3L6U29G7H 

7D29E3U23H3D29L6U34R7F6E6R7D34" 

430 PSET (25, 30) , 1 : DRAW L4* 

440 PAINT (31, 29) , 11 

450 PAINT (33, 45) ¡ 1 1 

460 PAINT (50, 29) , 11 

470 PSET (99, 30) , 1 : DRAW L4$ 

480 PAINT (105, 29) , 11 

490 PAINT (107, 45) , 11 

500 PAINT (124, 29) , 11 

510 L5*="CUR6D9F5R4E5U9R6D10G7D14G 
3U 1 4E3G3D 1 4L6U 1 4H 1 0U 1 0E3R6D9F5R4E2U 
9E3R6D10G3" 

520 PSET (210, 30 ) , 1 : DRAW L5* 

530 PAINT (215, 28) , 11 

540 PAINT (235, 28) , 11 

550 PAINT (228, 60) , 11 

560 LINE(15, 15) -(250, 77) , 10, B 

570 DRAW"bml5, 1 5c 1 0e4r 235d62g4 M 



580 PAINT (17, 14) , 10 
590 COLOR 6 

600 PSET (115, 100) , 1:PRINT#1, "Para" 
610 PSET (50, 115) , 1:PRINT#1, "MSX-CLU 
B DE PROGRAMAS" 
620 PSET (50, 123) , 1:PRINT#1, " 



630 COLOR 15 

640 PSET ( 40 , 1 80 ) , 1 : PR I NT# 1 , " < c > Ang 

el Toribio (1986) 

650 FOR T=l TO 1000: NEXT T 

660 ' 

670 ' INSTRUCCIONES 

680 ' 

690 SCREEN 0:WIDTH 40: KEY OFF:CLS 
700 COLOR 5, 1,1: LOCATE 5,10:PRINT"Q 
uieres las instrucciones < s/n >" 
710 A*=INKEY*:IF A*="" THEN 710 
720 IF A*="s" OR A*="S" THEN CLS:GO 
TO 740 

730 IF A*="n" OR A*="N" THEN CLS:GO 
TO 890 ELSE BEEP : BEEP : GOTO 710 
740 LOCATE 8,0:PRINT"I N S T R U C 
C I O N E S" 

750 LOCATE 5,1 SPRINT" 

w 

760 LOCATE 1 ¡, 3: PRINT"Este juego se 

compone de 60 fichas que" 

770 LOCATE 1 , 4: PRINT"conti enen 30 1 

etras y números repetidos" 

780 LOCATE 1,5: PRINT"una sola vez c 

ada uno. " 

790 LOCATE 1 , 7: PRINT"Competi ran dos 

jugadores y cada uno en" 
800 LOCATE l,8:PRINT"su turno levan 
tara dos fichas, y si es- tas coinc 
i den, sumara 100 puntos y ten- dra 
opción a jugar de nuevo." 
810 LOCATE 1, ll:PRINT"Si no coincid 
en se le restaran 10 pun- tos y el 

turno pasara al otro jugador." 
820 LOCATE 1 , 14: PRINT"Lo importante 

no es acertar el mayor nu mero de 
parejas, sino hacerlo en el me- ñor 

numero de intentos." 
830 LOCATE 1 , 18: PRINT"Seleccionar f 
icha con los cursores." 
840 LOCATE 1 , 20: PRI NT "Destapar la f 
icha pulsando la barra." 
850 LOCATE 7 , 22 : PR I NT " ! ! SUERTE Y A 

DIVERTIRSE ! ! " 
860 A*=INKEY*:IF A*="" THEN 860 
870 A=ASC(A*):IF A=32 THEN 880 ELSE 

860 

880 FOR T=l TO 25 : PR I NT : NEXT T 

890 ' 

900 ' PANTALLA PRAL.Y VALOR VARIA. 

910 ' 

920 COLOR 1, 12, 3: SCREEN 2,2 
930 GOSUB 3380 
940 T=0 
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«18 ir nio»(P«.[.iK 'o - or nio«(P«. i.iÍ>Q^RÍ;m ir CfflSCf n|D«(P». I . n )-64) obtmcn «5 


, 


L l Nt ( 0 , 0 ) - ( 1 4 , 191) p 3, BF 




■""V A C" O «I 


tok' rUh a — 1/ IU bTEF 16 




1440 LULDh 1^:PLAY Mi-.* 


970 T = T+ 1 




1 4^0 F SET ( X ( ) +2 , 1 60 ) , 1 : PR I NT# 1 , "No 


QQ(71 Y / T \ — V 

TOJÍ' A \ 1 J — A 




mbr e " 


O O l~A I T KIC t V T \ / V i 4 "7* — r r— \ j t-.r- 

V vií) L 1 NE CX ^ 3) — ( X+ 13| _'5 ) , 1 , BF 




1460 PSET (X (3) +2, 168) , 1 : PRINT#1 , "Ju 


1 CACAOS V ( 1 ) =~* 
x y.' t.' >i' t \ x / — •_• 




n H 1 11 

gu ■ x 


1010 NFXT y 

X >_' X 1 MU A 1 A 




1x17 (71 1 TMr í Y x"^ )¿«i / v / < c\ i a -t<->\ 

x *+ / >í' l_ i inl IX (6;+o, 1 6 ) - ( X ( 1 5 ) +•_•■ , 1 72 ) 


1 (/jr>(7t cnp y— 1 "7 Tn nc-c r> Trr , ., . 
í.jc'*_>í' rur\ A — 1 / IU .¿.*jo bTEF lo 




1 A. CjC 


1 <7J-\(71 I TWFÍY ?7UíVx1^ x.O\ 4 ni— 

i ij-'Vj i_ 1 inc u, j/; - u + i.j, 69 ) , 1 , BF 




X *tt)íí> LULUh 1 


1 (71x1(71 VP^ — -*7 




14V0 1 X=X (6) 


1 rj vJ}í' INC. A 1 A 




x u00 A*— INKEY* 


1 í7f A /7I CnD V 4 ~7 T O ncrc r~--r r— r~. * 1 

1 10019 rUh X — 1/ Tü 255 STEF 16 




Iol0 IF A*= M " THEN 1500 


10/0 L 1 Nt ( X , 7 1 ) - ( X + 1 3 , 1 03 ) , 1 , BF 




1520 A=ASC(A*) 


1 0S0 Y ni =7 1 




Ir R/Vk) THEN A = A— 32 


1 (71Q(7í MFYT Y 
x Inc. A 1 A 




1 c. /i /y< /\a r^Lir"i«* / /\\ 

1 sJHVJ HÍ-uHK$ ( A ) 


1 100 FRP Y=1 7 TH ocre cTrD 4 z. 
x x j.'^j r un A — x / 1 U u o 1 Er 1 6 




x^j^jIí) li- A- lo THEN BEEF : GOTO 1620 


1 1 1 (71 1 T MP ( Y 1 f/ÍR s _ / V j_ 1 T < -t-t \ 4 r ,r- 

111,11 1 ,N,t \ a , ílíj) - ( x + l j, 1 j. 7 ) , 1 , BF 




1560 JU* ( 1 ) =JU* ( 1 ) +A* 


1 1 ^(71 V í xl 1 — 1 í71 CT 




1 O/0 I A — T X+8 


1 1 "Tí/< KIC V T V 
1 1 ->\0 Nt A 1 X 




1580 PSET (TX, 165) , 14: PRINT#1 , A* 


11x1 (71 1 TWP í Y t Á <3M / v / 4 cr \ .4-1- « m >, 

x i *t jí' i_ i inc. k A v ; , 1 40 ) — (X(15)+13, 1 90 ) , 




xuV0 rLHY 1 64o6c 


1 BF 




1600 IF TX>153 THEN 1620 


11 c if71 1 T KIC / V / 4 \ 4 /i >;« \ i U y;n« . j -r . _ . 

i i l i Nt í X ( 1 ) , 1 40 )-(X(2)+13,l 90 ) . 1 




1 A 1 (71 CrlTn 1 crrAtZi 

Iox0 bU I U 1500 


t BF 




1 A 2 (7J F' P p T í 9 (71 (71 1 A ■( ■» 1 fli ddtmt*h i i /-« rt,-<.-t 
xo*.>.» rati \ f lbj) , 14:rKINTfFl, 0000 


1 1 A {71 PnQI ID /i tt ( ;( 






1 17(71 í;nQI ICi A "51*31 
U/13 ÜUaUD IaIIÍ 




1A"^(71 1 TMC / V i «ro \ . - . __ . . 

x o_.0 L1NE ( X (o) l +2| 159) - ( X < :•.) +48, 176) 






1 ntr 
¡, 1 , bh 


1 i oi;i ? cnC'Tcn rDArrrnc 
1 1 V0 bUK 1 hU bKftFlCÜS 






1 n 00 ' 




1650 ? entrada nombre jug. 2 


1 "~> 1 (71 cnC 1 T— 1 xn /LÍA 

lxlK' rUh I — 1 1 U o íí' 






1 7r>i?1 |\| = T|\IT í PNn í-TTMn *a ( ;u _i» i 
1 in— X IN 1 V r\INL/ k 111 IC } * Olí' ^ T* X 




1 A7(71 mi np 1 o 


1 ^"Tl71 T C M — A (KM TL-ICKI 1 ' _l 1-1 (71 




16Ü0 F SET ( X ( _.) +2, 175) , 1 : PRINT#1 ¡, "No 


1 ^xl(7< A { KH —NI 




mbr e " 


1 ^ (71 r;c'* ítí -cTt fKh 

X i^^Jlí' Ün» ^ 1 ) —O 1 * ^ IN ) 




1690 F SET ( X ( ...) +2, 183) , 1 : PRINT#1 , " Ju 


1 ^AtTI NFYT T 
X ¿Olí' INC A 1 1 




gd . 2 " 


1 '77(71 CpACC A. HTM A^A(7n 
X / VJ Cr\HOC M.UXII H \ o\t> } 




1 / 00 L I NE ( X ( 6 ) + ¿< , 1 78 ) - ( X ( 1 5 ) + o , 1 87 ) 


1 riQói 




,14, BF 


1 "^0(71 * TCYTn TMCCDTnD 

1 x 7 ki IC.AIU INrthlUh 




1 / 1 0 LULüR 1 


1 300 ' 




•I - }"-» #71 TV v / / \ 

1 /¿:0 1 X — X ( 6 ) 


131 0 rni riR q 




1 7^(71 A«t — TML''CV<t 


1 "T'^í71 PCCT / 1 (ylíyl 1 ACU 1 . C'C" T KIT+t 1 " 




1740 IF A*="" THEN 1730 


II 




1750 A=ASC(A$) 


1 " T ." :r .0 F ,c ;FTí94. 1xip\ 1 • PP T NTü 1 " I luna 
x ->_>>i' r oc i \ v*+ ¡i x *tv / ¡i x ■ r rs x in i tf x ¡i | üug<B 




1 ~7 JL. i'A T C /\ • O l'A TUCKI A — A -T f~\ 

X /O0 Ih R-V0 I HEN A=A-j2 






1770 A*=CHR*(A) 


1 "T4.Í71 C'C-pT ( 1 (75(71 Itr.T) Q-PPTMT±t1 " 

x \j*rxf r oc i k x \í>vj „ x Ujl. ) y t • rr\ 1IN I tf 1 ¡, — i 




1 /Ü0 IF A- lo THEN BEEF: GOTO 1860 






1790 JU* ( 2 ) = JU* ( 2 ) +A$ 


1 " :; '. cr i(7j pni np 7 




1 O l'A l'A "TV TVxü 

1 O»¿'0 1 A — 1 A +0 


1 "^A(71 PQPT ti 7 A 1 A(71 ^ 1 ■ C'C- T KITtt 1 " 
x ■-' o yj r oc i u / o. i > - i : r h i im i # i . 




loiw FbET (TX , 180) , 14: FRINT#1 , A* 






1820 FLAY 1 64o5c 


1 "^.ICA PCÍFT f 1 7(71 1APi 1 ■ PRTMTttl " ■ Pnn 
x v> / jí' r se i \ x / vj 9 x *t v / jX.rrvxlNlttX, | r Un 




185» IF TX>1»53 THEN 1860 


LOS 1 




1840 GOTO 1730 


1380 PSET ( 176, 152) ,7:PRINT#1, " 




1850 COLOR 1 






1 860 PSET ( 200 , 1 80 ) , 1 4 : PR I NT# 1 , " 0000 


1390 COLOR 11 




0" 






1870 LINE ( X (3) +2, 170) - ( X (3) +48, 190) 


1410 7 entrada nombre jug. 1 




, 1 , BF 








1 430 M3*= " T90V 1 2L32FR32FR32AR32AR32 




1890 TURNO JUGD. 1 


AR32AR32AR32AR32AR32GR32FR32FR32GR3 
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1910 FORT=1TO500:NEXTT 
1920 JU=1 

1930 PLAY"13o5a#. " 

1940 LINE<190, 164) - (240, 172) , 14, BF 
1950 COLOR 1 

1960 PSET (200, 165) , 14: PRINT#1 , USING 

" ##### " ; PU ( 1 ) 

1970 LINE(X(3)+2, 150) -(X (3) +48, 190) 
, 1,BF 

1980 COLOR 1 

1990 PSET (105, 180) , 14:PRINT#1, JU*(2 
) 

2000 COLOR 4 

2010 PSET (105, 165) , 14:PRINT#1, JU*(1 
> 

2020 PSET (75, 165) , 1:PRINT#1, " — ► " 
2030 IF FI=30 THEN 4870 
2040 GOTO 2200 

2050 ' 

2060 ? TURNO JUGD. 2 

2070 " 

2080 FORT=1TO500:NEXTT 
2090 PLAY"13o5a#. " 

2100 LINE(X(3)+2, 150) -(X (3) +48, 190) 
, l f BF 

2110 COLOR 1: JU=2 

2120 LINE(190, 179) -(240, 187) , 14, BF 
2 1 30 PSET ( 200 , 1 80 ) , 1 4 : PR I NT# 1 , US I NG 

M ##### " ; pU ( 2 ) 

2140 PSET (105, 165) , 14: PRINT#1 , JU* ( 1 
) 

2150 COLOR 4 

2160 PSET (105, 180) , 14:PRINT#1, JU*(2 
) 

2170 PSET (75, 180) , 1 : PRINT#1 , "— ► " 

2180 IF FI=30 THEN 4870 

2190 GOTO 2200 

2200 * 

2210 ' movim. esprite 

2230 N=l: X=l: Y=l 

2240 A*=INKEY*:IF A*="" THEN 2240 

2250 GOSUB 4740 

2260 A*=INKEY$ 

2270 IF A*="" THEN 2260 

2280 A=ASC(A*) 

2290 IF A>32 OR A<28 THEN BEEP: GOTO 
2260 

2300 IF A=32 THEN 2830 
2310 IF A=28 THEN 2430 
2320 IF A=29 THEN 2530 
2330 IF A=31 THEN 2630 
2340 IF A=30 THEN 2730 

2360 9 valores de y 

2380 Y=l 

2390 IF N>15 THEN Y=2 
2400 IF N>30 THEN Y=3 
2410 IF N>45 THEN Y=4 
2420 RETURN 



2430 ' 

2440 ' mov. a derecha 

2450 ' 

2460 N=N+1 

2470 IF N>60 THEN N=60:GOTO 2260 
2480 GOSUB 2380 

2490 IF Y=l THEN X=N:GOTO 2510 
2500 X=N~-<15* (Y-l) ) 
2510 GOSUB 4740 
2520 GOTO 2260 

2530 ' 

2540 7 mov. izquierda 

2560 N=N-1 

2570 IF N<1 THEN N=l:GOTO 2260 

2580 GOSUB 2380 

2590 IF Y=l THEN X=N:GOTO 2610 

2600 X=N-(15*(Y-1) ) 

2610 GOSUB 4740 

2620 GOTO 2260 

2630 ' 

2640 ' mov. abajo 

2650 ? 

2660 IF N>45 AND Y=4 THEN 2260 

2670 N=N+15 

2680 GOSUB 2380 

2690 IF Y=l THEN X=N:GOTO 2710 

2700 X=N-(15* (Y-l) ) 

2710 GOSUB 4740 

2720 GOTO 2260 



2740 " mov. arriba 

2750 ' 

2760 IF N<16 AND Y=l THEN 2260 
2770 N=N-15 
2780 GOSUB 2380 

2790 IF Y=l THEN X=N:GOTO 2810 
2800 X=N~(15* (Y-l ) ) 
2810 GOSUB 4740 
2820 GOTO 2260 

2840 ? primer turno 

2850 ' 

2860 GOSUB 4210 

2870 IF N=A ( N ) THEN PLAY " L3202AB . ": 
GOTO 2230 

2880 IF N1=N THEN PLAY"L3202AB. " : GO 
TO 2240 
2890 TU=TU+1 

2900 ON TURNO GOTO 2910,2990 
2910 PLAY"164o5cde. " 

2920 LINE(X(X),Y(Y))-(X(X)+13,Y(Y)+ 
32) , 14, BF 

2930 PSET(X(X)+9,Y(Y)+8) , 14-.DRAW GR 
* (N> 

2940 PAINT(X (X)+10, Y (Y) +10) , 12 
2950 X1=X (X) : Y1=Y(Y) 
2960 N1=N 

2970 FOR T=l TO 500:NEXTT 
2980 GOTO 2240 

2990 * 
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Programas 



«ie ir niD»fP». I.ik-o- or niD»cp». l.lflU&jR''' 0 ' r Ct«SCf niotcp». 1. 1 n -o« jobtmen «5 



3000 ' segundo turno 

3010 ■ 

3020 GOSUB 4210 

3030 IF N=N1 THEN TU=1:G0T0 2240 
3040 IF N=A (N) THEN PLAY"L3202AB. " : G 
OTO 2230 

3050 IF TU=2 THEN TU=0 

3060 LINE(X(X) ,Y(Y) ) - ( X < X ) +13, Y < Y) + 

32) , 14, BF 

3070 PSET(X(X)+9,Y(Y)+B) , 14:DRAW GR 
*<N) 

3080 PAINT(X (X) +10, Y (Y) +10) , 12 

3090 PLAY"164o4cde. " 

3100 FGR T=l TO 500:NEXT T 

3110 IF GR*(N1)=GR*(N) THEN 3120 EL 

SE 3240 

3120 ' 

3130 « acierto 

3140 ■ 

3150 PU(JU)=PU(JU) +100 
3160 A(N1)=N1: A(N)=N 

3170 LINE(Xl,Yl)-(Xl + 13,Yl+32) , 12, B 
F 

3 180 LINE(X(X) , Y(Y> )-(X(X)+13, Y(Y)+ 
32) , 12, BF 

3190 PLAY"132o5cdef egg. " 
3200 FI=FI+1 
3210 N1=0 

3220 FORT=l TO 500:NEXTT 
3230 ÜN JU GOTO 1880,2050 

3240 ' 

3250 ■ fallo 

3260 ? 

3270 N1=0 

3280 LINE(X1, Y1)-(X1+13, Yl+32) , 1 , BF 
3290 LINE(X(X),Y(Y))-(X(X)+13,Y(Y)+ 
32) , 1,BF 

3300 PU ( J U ) =PU ( J U ) - 1 0 

3310 IF JU=1 THEN L I NE ( 1 90 , 1 64 ) - ( 24 

0, 172) , 14, BF: COLOR 1 : PSET (200, 165) , 

14: PRINT#1 , USING"#####" ; PU < 1 ) 

3320 IF JU=2 THEN LINE ( 190, 179) - (24 

0, 187) , 14, BF: COLOR 1: PSET (200, 180) , 

14: PRINT#1,USING"#####";PU(2> 

3330 JU=JU+1 

3340 IF JU=3 THEN JU=1 

3350 PLAY"132o4ggef edc. " 

3360 FORT=l TO 500:NEXTT 

3370 ON JU GOTO 1880,2050 

3380 ' 

3390 ? definición sprites 

3400 ' 

3410 ' 

3420 í matrices de cero 
3430 ' 

3440 O1*=CHR*<0) +CHR*(0)+CHR*(0) +CH 
R* ( 0 ) +CHR* ( 0 ) +CHR* ( 0 ) +CHR* ( 0 ) +CHR* ( 

0) 



3450 02*=CHR* (0) +CHR* (0) +CHR* (0) +CH 
R* (0) +CHR* (0) +CHR* (0) +CHR* (0) +CHR* ( 

0) 

3460 03*=CHR* (0) +CHR* (0) +CHR* (0) +CH 
R* ( 0 ) +CHR* ( 0 ) +CHR* < 0 ) +CHR* ( 0 ) +CHR* ( 
0) 

3470 04*=CHR* < 0 ) +CHR* ( 0 ) +CHR* ( 0 ) +CH 
R* ( 0 ) +CHR* ( 0 ) +CHR* ( 0 ) +CHR* ( 0 ) +CHR$ ( 
0) 

3480 ' 

3490 ' spr i te (0) -gorro rojo(6) 
3500 ' 

35 10 Al *=CHR* ( 1 ) +CHR* ( 1 ) +CHR* ( 3 ) +CH 
R* ( 3 ) +CHR* ( 7 ) +CHR* ( 7 ) +CHR* (15) +CHR* 
( 15) 
3520 ' 

3530 A2*=CHR* (15) +CHR* ( 24 ) +CHR* (16) 
+CHR* ( 0 ) +CHR* ( 0 ) +CHR* ( 0 ) +CHR* ( 0 ) +CH 
R* ( 0 ) 
3540 " 

3550 A3*=CHR* ( 0 ) +CHR* ( 0 ) +CHR* (128)+ 
CHR$ (128) +CHR* (192) +CHR* (192) +CHR* ( 
224)+CHR*(224) 
3560 

3570 A4*=CHR* (224) +CHR* ( 48 ) +CHR* ( 16 
) +CHR* ( 0 ) +CHR* ( 0 ) +CHR* ( 0 ) +CHR* ( 0 ) +C 
HR*(0) 
3580 ' 

3590 SPR I TE* ( 0 ) =A 1 *+A2*+ A3*+ A4* 
3600 " 

3610 ? sprite*(l) — cara rojo(9) 
3620 7 

3630 A2*=CHR* ( 0 ) +CHR* ( 7 ) +CHR* ( 1 3 ) +C 
HR* (15) +CHR* ( 6 ) +CHR* ( 0 ) +CHR* ( 0 ) +CHR 
* (0) 
3640 ■ 

3650 A4*=CHR* ( 0 ) +CHR* (192) +CHR* ( 96 ) 
+CHR* ( 224 ) +CHR* (192) +CHR* ( 0 ) +CHR* ( 0 
) +CHR* (0) 
3660 ' 

3670 SPR I TE* ( 1 ) =01*+A2*+03*+A4* 



3690 :, sprite*(2) — barba gris(14) 
3700 7 

3710 A2*=CHR*(0) +CHR*(0) +CHR*(0) +CH 
R* ( 1 6 ) +CHR* ( 24 ) +CHR* (31) +CHR* ( 1 4 ) +C 
HR* ( 13) 

3720 ? 

3730 A4*=CHR* (0) +CHR* ( 0 ) +CHR* ( 0 ) +CH 
R* ( 16) +CHR* (48) +CHR* (240) +CHR* (224) 
+CHR*(96) 
3740 ! 

3750 SPRITE* (2) =0 l*+A2*+03*+A4* 
3760 ' 

3770 ? sprite*(3) — chaqueta azul (4) 
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3780 ' 

3790 A2*=CHR* ( 0 ) +CHR* ( 0 ) +CHR* ( 0 ) +CH 
R* ( 0 ) +CHR* ( 0 ) +CHR* < 0 ) +CHR* (16) +CHR* 
(48) 
3800 " 

38 1 0 A4*=CHR* ( 0 ) +CHR* < 0 ) +CHR* ( 0 ) +CH 
R* ( 0 ) +CHR* ( 0 ) +CHR* ( 0 ) +CHR* (16) +CHR* 
(24) 
3820 * 

3830 SPR I TE* (5) «OÍ *+A2*+03*4 A4* 
3840 * 



3850 ? sprite*(4) — manos rojo(9) 
3860 ' 

3870 A 1 *=CHR* ( 0 ) +CHR* ( 0 ) +CHR* ( 0 ) +CH 
R* ( 0 ) +CHR* ( 8 ) +CHR* (12) +CHR* ( 0 ) +CHR* 
(0) 

3880 ' 

3890 A3*=CHR* (0) +CHR* ( 0 > +CHR* < 0) +CH 
R* ( 0 ) +CHR* ( 32 ) +CHR* ( 96 ) +CHR* ( 0 ) +CHR 
* (0) 
3900 " 

39 1 0 SPR I TE* ( 4 ) =A 1 *+02*+A3*+ 04* 

3920 " 



3930 'sprite*(5> — barba /botas gris 
( 14) 
3940 ' 

3950 A 1 *=CHR* ( 7 ) +CHR* ( 7 ) +CHR* ( 3 ) +CH 
R* ( 3 ) +CHR* ( 1 ) +CHR* ( 0 ) +CHR* ( 0 ) +CHR* ( 

0) 

3960 ' 

3970 A2*=CHR* (0) +CHR* (0) +CHR* (0) +CH 
R* ( 0 ) +CHR* ( 0 ) +CHR* ( 28 ) +CHR* ( 28 ) -+ CHR 
* (30) 
3980 ' 

3990 A3*=CHR* (192) +CHR* (192) +CHR* ( 1 
28 ) +CHR* (128) +CHR* ( 0 ) +CHR* ( 0 ) +CHR* ( 
0)+CHR* (0) 
4000 ' 

40 1 0 A4*=CHR* ( 0 ) +CHR* ( 0 ) +CHR* ( 0 ) +CH 
R* ( 0 ) +CHR* ( 0 ) +CHR* (112) +CHR* ( 1 1 2 ) +C 
HR*(120) 
4020 ' 

4030 SPR I TE* ( 5 ) =A 1 *+ A2*+ A3*+ A4* 
4040 ' 



4050 ? sprite*(6) — pantalones azul (7 
) 

4060 - 

4070 A2*=CHR* ( 63 ) +CHR* ( 62 ) +CHR* ( 2B ) 
+CHR* ( 28 ) +CHR* ( 0 ) +CHR* ( 0 ) +CHR* ( 0 ) +C 
HR*(0) 
4080 ' 

4090 A4*=CHR* (248) +CHR* (248) +CHR* ( 1 
1 2 ) +CHR* (112) +CHR* ( 0 ) +CHR* ( 0 ) +CHR* ( 
0>+CHR*(0) 
4100 ' 

4110 SPR I TE* < 6 ) =0 1 *+A2*+03*+ A4* 
4120 ' 



4130 :, sprite*(7)— chaqueta azul (4) 
4140 ' 

4150 Al *=CHR* ( 1 20 ) +CHR* ( 1 04 ) +CHR* ( 1 
08 ) +CHR* (116) +CHR* < 53 ) +CHR* ( 0 ) +CHR* 
(60)+CHR*( 127) 
4160 ' 

4 1 70 A3*=CHR* ( 60 ) +CHR* ( 44 ) +CHR* ( 1 08 
) +CHR* ( 92 ) +CHR* < 88 ) +CHR* ( 0 ) +CHR* ( 1 2 
0)+CHR*(252> 
4180 ' 

4190 SPRITE*(7)=A1*+G2*+A3*h-04* 
4200 RETURN 

4210 7 ************************** 
4220 ' pos. inicial sprite 
4230 ' ************************** 
4240 PUT SPRITE 0, ( X ( 1 ) +8, 150) , 6, 0 
4250 PUT SPRITE 1 , ( X ( 1 ) +8, 150) , 9, 1 
4260 PUT SPRITE 2, ( X ( 1 ) +8, 150) , 14, 2 
4270 PUT SPR.ITE 3, ( X ( 1 ) +8, 150) , 4, 3 
4280 PUT SPRITE 4 , ( X ( 1 ) +8 , 166 ) , 9, 4 
4290 PUT SPRITE 5, ( X ( 1 ) +8, 166) , 14, 5 
4300 PUT SPRITE 6, ( X ( 1 ) +8, 166) , 7, 6 
4310 PUT SPRITE 7, ( X ( 1 ) +8, 166) , 4, 7 
4320 RETURN 

4330 * 

4340 * de-f . de gráficos 

4350 ? 

4360 ST* ( 1 ) ="C12F2D3L2D2L5U4ER3FD2R 

2D1 1L2U7L5D7L2U14E2R5" : ' A 

4370 ST* ( 2 ) - H C 1 2F2D2L2UHL4D5R4EU2R2 

D3GFD3L2U2HL4D5R4EUR2D2G2L7U1 6R7" : > 

B 

4380 ST* ( 3 ) = " C 1 2F2D2L2UHL3GD 1 0FR3EU 
R2D2G2L5H2U12E2R5" : ' C 

4390 ST* ( 4 ) = " C 1 2F2D6L2U5HL4D 1 2R4EU5 
R2D6G2L7U16R7": 'D 

4400 ST* (5) ="C1 2F2D2L2UHL4D5R3D2L3D 
5R4EUR2D2G2L7U16R7" : ? E 
44 1 0 ST* ( 6 ) = " C 1 2F2D2L2UHL4D5R3D2L3D 
7L2U16R7": 'F 

4420 ST* (7) ="C1 2F2D2L2UHL3GD 1 0FR3EU 
2L2U2R4D5G2L5H2U12E2R5" : ? G 
4430 ST*(8)="C12R2D16L2U7L5D7L2U16R 
2D7R5U7": 'H 

4440 ST*(9)="C12R2D14G2L5H2U3R2D2FR 
3EU13": ' J 

4450 ST* ( 1 0 ) = " C 1 2R2D3G5F5D3L2U2H5D7 
L2U16R2D7E5U2" : ' K 

4460 ST* ( 1 1 ) ="C12R2D16L2U13G2LH2D13 
L2U16R2F2RE2": " M 

4470 ST* ( 12) ="C12F2D7L2U6HL3GD10FR2 
H2E2F2U3R2D5FG2HL5H2U 1 2E2R5" : ' Q 
4480 ST* ( 1 3 ) = " C 1 2F2D7L2U6HL3GD 1 0FR3 
EU4R2D5G2L5H2U12E2R5" : ' ü 
4490 ST* ( 14) ="C12R2D16L2U3H5D8L2U16 
R2D5F5U10": 1 N 

4500 ST* ( 15) ="C1 2F2D3L2U2HL4D5R4EUR 
2D2G2L5D7L2U16R7" : * P 

45 1 0 ST* ( 1 6 ) = " C 1 2F2D3L2U2HL4D5R4EUR 
2D2G2L2F4D3L2U2H5D7L2U16R7" : ' R 
4520 ST* ( 17) ="C12F2D2L2UHL3GD3FR4F2 
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Programai 



D5G2L5H2U2R2DFR3EU3HL4H2U5E2R5" : ' S 
4530 ST* ( 1 8 > = " C 1 2R2D 1 4G2L5H2U 1 4R2D 1 
3FR3EU13": * U 

4540 ST* < 19) ="C12R2D12G4LH4U12R2D1 1 
F2RE2U11" : ' V 

4550 ST* ( 20 ) = " C 1 2R2D4G3D2F3D4L2U3H2 
LG2D3L2U4E3U2H3U4R2D3F2RE2U3" : 9 X 
4560 ST* (21 ) ="C1 2R2D4G3D9L3U9H3U4R2 
D3F2RE2U3" : ' Y 

4570 ST*(22)="C12R2D5G7D2R7D2L9U5E7 
U2L7U2R7" : ' Z 

4580 ST*(23)="C12F2D4G7DR7D2L9U4E7U 
2HL3GDL2U2E2R5 " : ■ 2 

4590 ST* (24) ="C12F2D4G2F2D4G2L5H2U2 
R2DFR3EU2H2L2U2R2E2U2HL3GDL2U2E2R5" 

4600 ST* ( 25 ) = " C 1 2R2D6L2U4LG4D3R5U3R 
2D10L2U5L7U6E5R2": >4 

46 1 0 ST* ( 26 ) = " C 1 2R2D3L7D3FR4F2D5G2L 
5H2U2R2DFR3EU3HL4H2U7R7 " : * 5 
4620 ST*(27)="C12F2D2L2UHL3GD4R5F2D 
2L2UHL3GD3FR3EU2R2D3G2L5H2U1 2E2R5" : 
' 6 

4630 ST* ( 28 ) = " C 1 2F2D 1 4L2U7L2U2R2U4H 
L3GDL2U2E2R5" : ' 7 

4640 ST*(29)="C12F2D2L2UHL3GD3FR3EU 
2R2D3GFD2L2UHL3GD3FR3EU2R2D3G2L5H2U 
5EHU5E2R5" : ' 8 

4650 ST* ( 30 ) = " C 1 2F2D 1 2G2L5H2U2R2DFR 
3EU4L5H2U2R2DFR3EU3HL3GD2L2U3E2R5 " : 
? 9 

4660 " 

4670 ' DEFIN. DOBLE GRAFICO 

4680 > 

4690 FOR T=31 TO 60 
4700 ST* (T) =ST* (T--30) 
4710 NEXT T 
4720 RETURN 
4730 GOTO 4730 

4740 7 ************************** 
4750 pos. sprite 
4760 =•************************** 
4770 PUT SPRITE 0 , ( X ( X ) , Y ( Y ) ) , 6 , 0 



4780 PUT SPRITE 1 , ( X < X > , Y ( Y) ) , 9, 1 
4790 PUT SPRITE 2, ( X ( X > , Y < Y) ) , 14, 2 
4800 PUT SPRITE 3, ( X < X ) , Y ( Y ) ) , 4 , 3 
4810 FUT SPRITE 4, < X ( X ) , Y < Y) +16) , 9, 
4 

4820 PUT SPRITE 5,(X(X),Y(Y)+16),14 
' 5 

4830 PUT SPRITE 6, ( X ( X ) , Y ( Y) + 16 ) , 7 , 
6 

4840 PUT SPRITE 7 , < X < X ) , Y < Y ) + 1 6 ), 4 ,7 
4850 PLAY"164o3bag. " 
4860 RETURN 

4870 ' 

4880 ' FINAL 

4890 ' 

4900 LINE(X (1) , Y(l) )-(X (15) +13, Y (4) 
+32) , 1 , BF 

491 0 M 1 *= " T90V 1 203L6FB-04D03B-FB-GA 
L32FR32FR32AR32AR32AR32AR32AR32AR32 
AR32GR32FR32FR32GR32AR32B-" 
4920 COLOR 1 1 : PLAY MI* 



4940 


PSET(80, 


40) 


1 : PRINT#1 , " ■ CAM 


PEON 








4950 


PSET(80, 


50) 


i:print#i, " mmmm 











4960 IF PU(1)>PU(2) THEN PU=1 ELSE 
PU=2 

4970 COLOR 7 

4980 PSET(50,70) , 1 : PRINT#1 , JU* (PU) ; 
" con";PU(PU) ; "Puntos" 
4990 COLOR 4 

5000 PSET (30, 77) , 1 : PRINTttl , " 



5010 COLOR 14 

5020 PSET (65, 120) , 1:PRINT#1, "Otra p 

artida <s/n>" 

5030 A*=INKEY* 

5040 IF A*="" THEN 5030 

5050 IF A*="s" OR A*="S" THEN RUN 

5060 IF A*="n" OR A*="N" THEN SCREE 

N0: COLOR 1,1, 1 : END 
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30 
40 
50 
60 
70 
80 
90 
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- 58 


1 30 


-201 


250 


- 58 


370 


- 1 


490 


- 56 


610 


- 48 


730 


- 99 


- 58 


1 40 


-144 


260 


- 58 


380 


-113 


500 


- 57 


620 


-196 


740 


- 38 


- 58 


150 


-215 


270 


- 74 


390 


-122 


510 


-235 


630 


-219 


750 


-227 


- 58 


160 


- 91 


280 


-224 


400 


-140 


520 


- 40 


640 


-138 


760 


-149 


- 58 


170 


- 58 


290 


- 79 


410 


-150 


530 


-147 


650 


-200 


770 


- 60 


- 58 


180 


- 58 


300 


- 86 


420 


- 94 


540 


-167 


660 


- 58 


780 


- 1 40 


- 58 


190 


- 58 


310 


-241 


430 


- 1 1 0 


550 


-192 


670 


- 58 


790 


-128 


- 58 


200 


- 58 


320 


-145 


440 


-220 


560 


-239 


680 


- 58 


800 


-131 


- 58 


210 


-204 


330 


- 0 


450 


-238 


570 


-153 


690 


-177 


810 


-105 


- 5B 


220 


-216 


340 


- 14 


460 


-239 


580 


-190 


700 


-252 


820 


-203 


-111 


230 


-207 






470 


-184 


590 


-212 


710 


- 77 


830 


-219 






















-16B_ 
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— 1 80 


890 


- 58 


900 
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-203 
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1 070 
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1 1 1 0 


— 90 
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- 38 
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-219 


1140 


- 134 


1 150 


-121 


1 160 


-149 


1170 
1 180 


- 29 


- 58 


1 190 


- 58 


1 200 


- 58 


1 2 1 0 


-25 1 


1 220 


-2 -.2 


1 230 


- 88 


1 240 


— 29 


1250 


-187 


1 260 


-215 


1270 


- 1 3 1 
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- 58 


1290 


- 58 


1 300 


- 58 




-215 


1 320 


-251 


1 330 


-211 


1340 


- 15 


1 350 


-213 


1 360 


- 71 


1370 


-143 


1 380 


~ 89 


1 390 


-215 


1 400 


- 58 


1410 


- 58 


1420 


- 58 


1430 


- 29 


1 440 


-119 



1460 


- 78 


2070 


- 58 


2680 


-240 


3290 


-162 


3900 


- 58 


45 1 0 




— 127 


1470 


- 1 50 


2080 


-2 1 0 


2690 


-197 


7". 7.00 


- 36 


3910 


-141 


4520 


— 1 77 


1 480 


-207 


2090 


-250 
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-151 


3310 


-115 


3920 


- 58 


4530 


¿lü 


1 490 


- 91 


2100 


-173 


2710 


- 49 


3320 


-162 


3930 


- 58 


4540 


—2 1 1 


1 500 


- 64 


2110 


- 170 


2720 


-115 


3330 


- 48 


3940 


- 58 


4550 




1 5 1 0 


-236 


2120 


-240 


2730 


- 58 


3340 


-167 


3950 


-233 


4560 


— 85 


1520 


-122 


21 30 


-105 


2740 


- 58 


3350 


-108 


3960 


- 58 


4570 


— t*s 


1530 


-11 1 


2140 


6 


2750 


- 58 


3360 


-210 


3970 


- 37 




— 1 
1 oo 


1540 


-123 


2150 


-210 


2760 


-252 


3370 


- 1 1 0 


3980 


- 58 


yic;Q f ;< 
H J7K' 


— 1 J_' 


1550 


-156 


2160 


- 22 


2770 


-155 


3380 


- 58 


3990 


- 78 




— ?9 


1 560 


-145 


2170 


-137 


2780 


-240 


3390 


- 58 


4000 


- 58 


A L. \ OS 

*+o 1 VJ 




1570 


- 81 


2180 




2790 


- 41 


3400 


- 58 


40 1 0 


- 41 


L YO¿-VJ 


— 99 


1 580 


-121 


2190 


— 55 


2800 


-151 


34 1 0 


- 58 


4020 


- 58 






1590 


-227 


2200 


- 58 


28 1 0 


- 49 


3420 


- 58 


4070 


— 1 1 4 


4640 


— 1 OSO 
1 Sí'V 


1 600 


- 15 


22 1 0 


- 58 


2820 


-115 


3430 


- 58 


404 0 


— 58 


4650 


— 1 23 


1610 


-120 




- 58 


2830 


- 58 


3440 


-226 


4050 


- 58 


4660 


- 58 


1 620 


-115 


2230 


-118 


2840 


- 58 


3450 


-227 


4060 


- 58 


4670 


— 58 


1630 


-168 


2240 


- 77 


2850 


- 58 


3460 


-228 


4070 


-130 


4680 


— 58 


1 640 
1650 
1660 
1670 


- 58 


2250 


- 49 


2860 


- 29 


3470 


—229 


4080 


- 58 


4690 


- 23 


- 58 


2260 


- 64 


2870 


-249 


3480 


- 58 


4090 


- 159 


4700 


-238 


- 58 
-216 


2270 
2280 


-231 
-122 


2880 
2890 


-162 
- 68 


3490 
3500 


- 58 

- 58 


4100 
4110 


- 58 
-143 


47 1 0 
*t / ¿i \0 


-215 


1680 


-207 


2290 


- 99 


2900 




3510 


- 4 


4120 


- 58 


473 0 


— 35 


1690 


- 94 


2300 


-203 


2910 


-217 




- 58 


4 1 30 


- 58 
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H- / *r \í> 


— er.Q 


1700 


- 1 80 


23 1 0 


- 85 


2920 


-173 


3530 


- 6 


4140 


- 58 


4750 


— 58 


1710 


-207 


2320 


-186 


2930 


-245 


3540 


- 58 


4 1 50 


-118 


H - / O VJ 


JO 


1 720 


- 91 


2330 


- 33 


2940 


-155 


3550 


- 10 


4160 


- 58 


4770 


— 1 84 


1730 


~ 64 


2340 


-132 


2950 


- 47 


3560 


- 58 


4 1 70 


-196 


4780 


._ i no 


1740 


-21 1 


2350 


- 58 


2960 


-188 


3570 


-241 


4180 


- 58 


*+ / V VJ 


— 1 OA 


1 750 


— 1 22 


2360 


- 58 


2970 


- 2 1 0 


3580 


- 58 


4 190 


-144 


4800 


— 1 88 


1760 


-11 1 


2370 


- 58 


2980 


- 95 


3590 


-109 


4200 


-142 


ZLQ 1 OS 




1 770 


-123 


2380 


- 90 


2990 


- 58 


3600 


- 58 


4210 


- 58 




— "> 1 A 


1 780 


-141 


2390 


- 26 


3000 


- 58 


3610 


- 58 


4220 


- 58 


4870 


—2 1 7 


1790 


-147 


2400 


- 42 


30 1 0 


- 58 


3620 


- 58 


4230 


- 58 


4840 


—212 


1 800 


- 81 


2410 


- 58 


3020 


- 29 


3630 


-250 


4240 


- 30 


4850 


—2 1 3 


1810 


-136 


2420 


-142 


3030 


- 100 


3640 


- 58 


4250 


- 35 


4860 




1 820 


-226 


2430 


- 58 


3040 


-249 


3650 


-143 


4260 


- 40 


4870 


— Sfl 

JfcJ 


1830 


- 0 


2440 


- 58 


3050 


- 185 


3660 


- 58 


4270 


- 34 


4880 


JO 


1840 


- 95 


2450 


- 58 


3060 




3670 


-138 


4280 


- 57 


4890 




1850 


-207 


2460 


-142 


3070 


—245 


3680 


- 58 


4290 


- 62 


4900 


1 Jl 


1 860 


- 1 30 


2470 




3080 




3690 


- 58 


4300 


- 59 


4 9 1 0 


—20 1 


1870 


-193 


24B0 


-240 


3090 


-216 


3700 


- 58 


4310 


- 58 


4920 


- 1 1 6 


1880 


- 58 


2490 


-252 


3100 


-210 


3710 


- 45 


4320 


-142 


4930 


— 1 89 


1890 


- 58 


2500 


-151 


3 1 1 0 


- 36 


3720 


- 58 


4330 


- 58 


4940 


— 60 


1 900 


- 58 


2510 


- 49 


3120 


- 58 


3730 


- 61 


4 340 


- 58 


4950 


— 1 75 


1910 


-210 


2520 


-115 


3 1 30 


- 58 


3740 


- 58 


4750 


- 58 


4960 


— 1 Af71 


1 920 


- 1 60 


2530 


- 58 


3140 


- 58 


3750 


-139 


4360 


- 84 


4970 


—2 1 7 


1930 


-250 


2540 


- 58 


3 150 


- 125 


3760 


- 58 


4370 


-112 


4980 


— 1 49 


1940 


-210 


2550 


- 58 


3160 


-214 


3770 


- 58 


4380 


— 1 22 


4990 


±. i VJ 


1 950 


-207 


2560 


- 143 


3170 


-201 


3780 


- 58 


4390 


-123 


R OS CACA 
%JVJVJVJ 




1 960 


- 89 


2570 


-177 


31B0 


- 1 7 1 


3790 


- 17 


4400 


-207 


Rf/l 1 OS 
*J\0 1 VJ 


¿lo 


1970 


-173 


2580 


-240 


3 1 90 


- 1 09 


3800 


- 58 


4410 


- 58 


5020 


—20 1 


1 980 


-207 


2590 


- 97 


3200 


- 16 


3810 


-251 


4420 


-186 


5070 


— 64 


1 990 


— ^2 


2600 


- 151 


32 1 0 


-127 


3820 


- 58 


4430 




5040 


-196 


2000 


-210 


26 1 0 


_ 49 


3220 


—210 


3830 


- 1 40 


4440 


-111 


5050 


-220 


2010 


- 6 


2620 


- 1 1 5 


3230 


- 1 1 0 


3840 


- 58 


4450 


- 34 


5060 


— 94 


2020 


-122 


2630 


- 58 


3240 


— 58 


3850 


- 58 


4460 


-207 


2030 


— 55 


2640 


- 58 


3250 


- 58 


3860 


- 58 


4470 


-163 






2040 


— 55 


2650 


- 58 


3260 


- 58 


3870 


-230 


4480 


-244 






2050 


- 58 


2660 


- 26 


3270 


-127 


3880 


- 58 
" 50 


4490 


- 28 

- 14 


TOTAL: 
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Programa hm^hhhmhhmb Por Francisco M. Sánchez ■ 



CONTROL DE CASTOS 
CASEROS 



Este programa está pensado 
para que organicemos nues- 
tros gastos domésticos. Gra- 
cias a él podemos llevar las 
cuentas grabadas en cinta, 
pudiendo recuperarlas fácil- 
mente. 



El menú ofrece las siguientes posibilidades: 

1. Da de alta una cuenta. Hasta 60 cuentas se pueden utilizar con este programa, pudiéndose 
ampliar cambiando la dimensión de los arrays. 

2. Da de baja una cuenta. Con sólo teclear el número de cuenta, el ordenador se encarga de 
borrarla. 

3. Corrección. Se pueden modificar cualesquiera de los datos. 

4. Listado de una cuenta. Pidiendo el número de cuenta muestra en pantalla su estado. 

5. Listado general. Esta opción muestra en pantalla todas las cuentas dadas de alta y calcula el 
total de todas ellas. 

6. Total acumulado de un concepto. Se da a la máquina el concepto a localizar y luego muestra 
todas las cuentas en la que aparece. Al final calcula la cantidad acumulada por tal concepto. 

7. Carga de ficheros. Realiza la carga de una cassette. 

8. Grabación de ficheros. Realiza la grabación de datos en una cassette. 

9. Salida del programa. 



10 KEY ÜFF 

20 ' ******************** 
30 ********************* 
40 ***** Control de **** 
50 '** gastos caseros ** 
60 ******** ************* 
70 *** FCÜ. M. SANCHEZ ** 
80 ****** para ****** 
90 ****** MSX-CLUB****** 
1 00 ********************* 
110 ********************* 
120 CLEAR 6000 
130 X=0:Y=0 

140 DIMA*<60> :DIMB<60) :DIMB$(60) 
150 CLS 

160 PRINT "MENU" 

170 PRINT " 

180 PRINT 

190 PRINT "1-Dar de alta una cuenta 
": PRINT 

200 PRINT "2-Dar de baja una cuenta 
": PRINT 

210 PRINT"3-Correccion de una cuent 



a" : PRINT 

220 PRINT"4-Listado de una cuenta": 
PRINT 

230 PRINT "5-Listado general ": PRINT 
240 PRINT "6-Total acumulado de un 
concepto" : PRINT 

250 PRINT "7-Grabacion de -ficheros" 
: PRINT 

260 PRINT "8-Carga de f i eneros" : PRI 
NT 

270 PRINT"9-3alir del programa" : PRI 
NT 

280 PRINT 

290 PRINT "Opción" 

300 T*=INKEY* 

310 IF T*="" THEN 300 

320 C=VAL(T*) 

330 IF T*<" 1"0R T*>"9"THEN GÜTÜ 300 
340 GN C GOTO 380,620,770,940,1050, 
1220, 1350, 1490, 1620 
350 » 

360 * ALTAS 
370 * 
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Programa 



380 CLS 

390 IF X>=60 AND Y>=60 THEN PRINT"F 
ichero compl eto" : FÜR T=0 TO 1500: N 
EXT: GOTO 150 
400 X=X+1:Y=Y+1 

410 LOCATE 24,0: PRINT" , 1" 

420 LOCATE 24, 2: PRINT" 1 '" 

430 LOCATE 25, 1 : PRINT"Cuenta ";X 
440 LOCATE 2, 2: PRINT", , " 

450 LOCATE 2, 4: PRINT"' 

460 LOCATE 3, 3: INPUT "Fecha" ; A* (Y) 
470 IF LEN(A$(Y))>8 THEN GOTO 460 

480 LOCATE 2,7:PRINT", 1" 

490 LOCATE 2, 9: PRINT" 1 »" 

500 LOCATE 3,8: I NPUT " Concepto " ; B$ ( Y 
) 

510 IF LEN(B*(Y))>8 THEN GOTO 500 

520 LOCATE 2, 12: PRINT" , , " 

530 LOCATE 2,14: PRINT" 1 ' " 

540 LOCATE 3,13: INPUT "Can ti dad " ; B ( Y 
) 

550 IF B(Y)<0 THEN 540 

560 LOCATE 3, 21 : PRINT"Otra cuenta ( 

S/N) " 

570 C*=INKEY*: IF C*="" THEN 570 

580 IF C*="S" THEN GOTO 380 

590 IF C*="N" THEN GOTO 150 

600 IF C*< >"S"ORC*< >"N" THEN GOTO 5 

60 

610 9 

620 ? BAJAS 
630 ' 

640 CLS:H=1 

650 IF Y=0 THEN CLS: PRINT"Fi chero v 

acio": PRINT: GOTO 1010 

660 INPUT "No. de ficha a dar de baj 

a";A:IF A>Y THEN CLS: GOTO 660 

670 IF A=Y THEN : GOTO 710 

680 FOR J=A TO Y 

690 A*<J)=A*(J+l) :B(J)=B(J+1) :B*(J) 
«*B* <J+Í) 
700 NEXT 

710 Y=Y-1 : X=X-1: PRINT: PRINT: PRINT 
720 PRINT"Para menú pulsa una tecla 

730 G*=INKEY$ 

740 IF G*="" THEN GOTO 730 
750 GOTO 150 
760 ' 

770 ' COPRECION DE CUENTAS 
780 ' 

790 H=1:CLS:IF Y=0 THEN F'RINT"Fi che 
ro vacio" : GOTO 1010 

800 INPUT "No. de cuenta a corregir"; 
J: IF J>Y THEN 790 
810 PRINT: PRINT 
820 GOSUB 1680 




830 GOSUB 1630: PRINT 
840 PRINT 
850 PRINT 

860 INPUT " Fecha ";H*:PRI NT: IF LEN < H$ 
) >8 THEN 860 

870 INPUT"Concepto"; I*: PRINT: IF LEN 

(I*) ; 8 THEN 870 

880 INPUT "Cantidad" ;L 

890 A*(J)=H*:B*(J)=I*:B(J)=L 

900 PRINT: PRINT "Pulsa una tecla par 

a menú" 

910 Q*=INKEY*:IF " " THEN 910 
920 GOTO 150 

930 ' 

940 ' LISTADO DE UNA CUENTA 

950 * 

960 IF ,'=0 THEN CLS: PR I NT " Fi chero 
vacio": GOTO 1010 

970 CLS: H=l : INPUT"No. de cuenta a 
1 i star " ; J 

980 IF J>Y THEN 970 
990 PRINT: GOSUB 1680 
1000 GOSUB 1630 

1010 PRINT: PRINT "Par a menú pulsa un 
a tecla" 

1020 Q*=INKEY*:IF 0*="" THEN 1020 
1030 GOTO 150 
1040 ' 

1050 ' LISTADO GENERAL 
1060 7 

1070 IF Y=0 THEN GOTO 650 
1080 CLS:F=0 

1090 PRINT" " ; " 

W " 

1100 H=l: GOSUB 1680 
1110 FOR J=l TO Y 
1120 H=H+1 
1130 GOSUB 1630 
1140 F=F+B(J) 
1150 NEXT 

1160 PRINT: PRINT: PRINT"Total = ";F 
1170 PRINT: PRINT: PRINT"Para menú p 
ulsa una tecla" 
1180 G*=INKEY* 

1190 IF G*="" THEN GOTO 1180 
1200 GOTO 150 
1210 > 

1220 * TOTAL ACUMULADO 
1230 * 

1240 IF Y=0 THEN GOTO 650 

1250 CLS: V=0: H=l : INPUT "Concepto a 

buscar " ; X* 

1260 CLS: GOSUB 1680 

1270 FOR j«í TO Y 

1280 IF B*(J)=X* THEN H=H+1: GOSUB 1 

630 

1290 NEXT 
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1300 PRINT: PRINT: PRI NT "Total acumu 
lado= ";V: PRINT: PRINT" Para menú pul 
sa una tecla" 
1310 G*=INKEY* 

1320 IF G*="" THEN GOTO 1310 
1330 GOTO 150 
1340 ' 

1350 " GRABACION DE FICHEROS 
1360 =• 

1370 CLS: PRINT"Pon el cassette par 
a grabar información y después apri 
eta una tecla" 
1380 G*=INKEY* 

1.390 IF G*=' ,M THEN GOTO 1380 

1400 CLS: PRINT M Espera, estoy graband 

0 " 

1410 OPEN"CAS: CONT" FOR OUTPUT AS 1 
t 420 PR I NT# 1 , X : PR I NT# 1 , Y: PRINTttl , F: 
PRINT#1 , V 
1430 FOR J=l TO Y 

1440 PRINT#1, A$(J) : PRINT* 1,B*<J> : PR 

INT#1,B(J) 

1450 NEXT 

1460 GLOSE 1 

1470 GOTO 150 

1480 ' 

1490 •- CARGA DE FICHEROS 
1500 * 

1510 CLS: PRINT"Pon el cassette para 
que de información y pulsa una tec 

1 a" 

1520 G*=INKEY* 



1530 IF G*="" THEN GOTO 1520 

1540 CLS: PRINT"Cargando" 

1550 OPEN" CAS: CONT" FOR INPUT AS 1 

1560 INPUT#1,X: INPUT#1,Y: INPUT* 1,F 

INPUT*1, V 

1570 FOR J=l TO Y 

1530 INPUTttl, A*(J) : INPUT* 1 , B* ( J ) : IN 
PUT#1 , B ( J) 
1590 NEXT 
1600 CLOSE 1 
1610 GOTO 150 
1620 CLS: END 1 
1630 IF B(J)<10--5 THEN PRINT USING" 
** J; :PRINT"| "; :PRINT USING"\ 

\";A*(J> ; : PRINT"! "; : PRINT USING" 
\ \";B*(J) ;: PRINT"! "; :PRI NT US 

ING"***** ";B(J) ; :PRINT"| " 
1640 IF B ( J) >=10--5 THEN PRINT USING 
"** ";J;: PRINT"! ";: PRINT USING" \ 

\"; A*(J) ; :PRIMT"| "; : PRINT USIN 
G"\ \";B*(J> ;: PRINT"! "; : PRINT 

US I NG " *# . ##••••••••■ ••• •••■ " : B ( J ) ; : PR I NT " | " 

1650 V=V+B<J> 

1660 IF HMOD20=0 THEN PRINT: INPUT 
Pulsa return para segui r " ; F* : CLS 
1670 RETURN 

1680 PRINT"! "; "no. | "; " Fecha ";"| 
; "Concepto"; "| "; "Cantidad "; "| " 

1690 PRINT" 

W " 



1700 RETURN 



Test de listad 




















10 


-183 


260 


-255 


510 


-234 


760 


- 58 


1010 


- 75 


1260 


- 10 


1510 


- 64 


20 


- 58 


270 


-143 


520 


- 12 


770 


- 58 


1020 


-164 


1270 


-255 


1520 


- 70 


30 


- 58 


280 


-145 


530 


- 18 


780 


- 58 


1030 


- 45 


1280 


-140 


1530 


-143 


40 


- 58 


290 


~ 61 


540 


-118 


790 


- 135 


1 040 


- 58 


1290 


- 1 3 1 


1 540 


-205 


50 


- 58 


300 


- 83 


550 


-126 


800 


-151 


1050 


- 58 


1300 


-125 


1550 


- 5 


60 


- 58 


310 


- 75 


560 


-130 


810 


- 92 


i 060 


- 58 


1310 


- 70 


1560 


-147 


70 


- 58 


320 


- 142 


570 


-197 


820 


- 49 


1 070 


-225 


1 320 


-189 


1570 


-255 


80 


- 58 


330 


-224 


580 


-102 


830 


-202 


1 080 


- 31 


1 330 


- 45 


1580 


- 4 


90 


- 58 


340 


- 64 


590 


-122 


840 


-145 


1 090 


- 84 


1340 


- 58 


1590 


- 1 3 t 


i m 


- 58 


350 


- 58 


600 


-216 


850 


-145 


1 100 


-180 


1 350 


-• 58 


1600 


-198 


1 1 0 


- 58 


360 


- 58 


610 


- 58 


860 


-115 


1110 


-255 


1360 


- 58 


1 6 1 0 


- 45 


1 20 




370 


- 58 


620 


- 58 


870 


-227 


1 120 


-130 


1370 


- 85 


1620 


~ 90 


130 


-235 


380 


-159 


630 


~ 58 


880 


-104 


1130 


-255 


1 380 


- 70 


1630 


- 82 


140 


-231 


390 


- 94 


640 


- 34 


890 


- 68 


1 140 


- 73 


1 390 




1640 


-194 


150 


-159 


400 


-128 


650 


-207 


900 


- 75 


1 150 


-131 


1 400 


-172 


1 650 


-105 


160 


- 10 


410 


-110 


660 


- 16 


910 


- 54 


1160 


- 45 


1410 


-207 


1 660 


-181 


170 


-237 


420 


-116 


670 


-135 


920 


- 45 


1170 


- 22 


1420 


-195 


1 670 


-142 


180 


-145 


430 


- 64 


680 


- 46 


930 


~ 58 


1 180 


- 70 


1430 


— 255 


1 680 


- 97 


190 


- 68 


440 




690 


- 6 


940 


- 58 


1 190 


- 58 


1 440 


- 40 


1690 


- 45 


200 


- 49 


450 




700 


-131 


950 


- 58 


1 200 


- 45 


1 450 


-131 


1 700 


-142 


210 


-148 


460 


- 80 


7 1 0 


-227 


960 


- 4 


1210 


- 58 


1 460 


-198 






220 


- 94 


470 


-193 


720 


-128 


970 


-206 


1220 


- 58 


1470 


- 45 






230 


-176 


480 


- 9 


730 


- 70 


980 


-209 


1230 


- 58 


1 480 


- 58 






240 


-201 


490 




740 


-118 


990 


-252 


1240 


-225 


1 490 


- 58 


TOTAL: 
















— ^55 






1 500 
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Programa , 



■Por Javier Esquirol Jiménezi 



DIBUJA SPRITES 



Este sencillo programita tie- 
ne la virtud de facilitarte el 
dibujo de sprites en 8x8 y 
16x16, tanto simple como 
ampliados, y después te da 
las datas. Su manejo es muy 
sencillo. 



Instrucciones: 

En primer lugar hay que escoger el tipo de 
sprite que se desea. Los tipos son: 8x8, 
8x8 ampliado, 16x16, 16x16 ampliado. 
Usando las teclas del cursor se desplaza éste 
(un sprite) por toda la pantalla. Al pulsar la 
barra espaciadora si el cursor se halla enci- 
ma de un cuadrito éste se pinta de blanco. Si 
se vuelve a pulsar la barra éste se borra. 
Al realizar Sprites del tipo 1 y 0 se trabaja 
sobre el cuadrante 1. 

Al realizar sprites del tipo 2 y 3 se trabaja en 
los cuatro cuadrantes. 
Cuando se completa un cuadrante es nece- 
sario pulsar la tecla S una sola vez y esperar 
un momento. 

Cuando has completado el sprite se te ofre- 
ce una visualización del mismo y una 
opción de modificación. 
En los sprites 0 y 1 sólo es modificable el 
cuadrante 1. 

Cuando no se desee realizar ninguna modi- 



ficación del sprite aparecerá el mismo en bi- 
nario para poder pasarlo cómodamente a 
otro programa. 
Explicación: 

10-150, preparación del programa y presen- 
tación de las instrucciones. 
160-460, dibujo de la cuadrícula, del indica- 
dor de cuadrante y se presenta la opción de 
tipo de sprite. 

470-670, se crea el cursor como un sprite y 
se controla su movimiento. 
680-920, se llena el array VB$. Se almacena 
un "1" si se pulsa una vez la barra espacia- 
dora. Si se pulsa otra vez o un número par 
de veces, o no se pulsa, se almacena un "0". 
Las líneas 720 y 730 se encargan de hallar 
las coordenadas cero del cuadro en que se 
encuentra en ese momento el cursor para 
poder realizar un LINE BF. 
Las líneas 740 y 750 reducen los valores 
anteriores a valores del 1 al 8 que indican 
fila y columna en el vector VB$. 



830-870, aquí se encuentran los DATA del 
sprite cursor. 

880-1040, se realiza la lectura del array VB$ 
y se crea el sprite (F$). 
1050-1090, se presenta el sprite en pantalla. 
1 100-1 190, se presenta la opción de modifi- 
car. 

1200-1380, se presenta el sprite en binario. 
1390-1440, subrutina para modificar. 
1450-1540, dibuja la parte de sprite del cua- 
drante que se quiere modificar. 
El hecho de utilizar un sprite como cursor 
se debe a que ello daba rapidez y agilidad. 
El grupo de líneas que se encargan del mo- 
vimiento del cursor puede parecer pesado, 
pero éste se desplaza con gran rapidez, pu- 
diendo variar esta velocidad incrementando 
o decrementando el n." 3 que aparece en las 
líneas 550-670. 

Además de presentar el resultado en binario 
se podría presentar en hexadecimal para 
aquellos que les guste formar así los sprites. 
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5 ' *** DIBUJA SPPITES *** 
10 CLEAR 

20 DIM VB* (4, 9, 9) : WIDTH 37:KEY OFF 

30 ÜF'EN"GRP: "FOR OUTF'UT AS 1 

40 SCREEN 0: COLOR 4, 15, 15: CLS 

50 PRINT"Debes escoger el tipo de S 

pri te: " : PRINT 

60 PRINT" 0-8*8" 

70 PRINT" 1-8*8 ampliado" 

80 PRINT" 2-16*16" 

90 PRINT" 3-16*16 ampliado" 

100 PRINT: PRINT"Usa las teclas del 

cursor y la barra de espacio para 1 

leñar los cuadros" 

110 PRINT: PRINT"Cuando termines un 
cuadrante pulsa S (púlsala solo una 

vez y espera un momento)" 
120 PR I NT : PR I NT " En los sprite 2 y 3 

puedes modificar cualquiera de los 

4 cuadrantes" 
130 PRINT: PRI NT "En los sprite 0 y 1 

solo es modifica-ble el cuadrante 
1 " 

140 LOCATE 0,22:PRINT"Pulsa tecla" 

150 IF INKEY$= " " THEN 150 

160 SCREEN 2,1: COLOR 15, 1,9: CLS 

170 FOR F=35 TO 155 STEP 15 

Í80 LINE(68,F)-(188,F) , 15 

190 NEXT F 

200 FOR C=68 TO 188 STEP 15 
210 LINE(C,35)-(C, 155) , 15 
220 NEXT C 

230 FOR J=20 TO 50 STEP 15 
240 LINE(J,35)-(J,65) , 15 
250 NEXT J 

260 FOR 1=35 TO 65 STEP 15 
270 LINEÍ20, I)- (50, I) , 15 
280 NEXT I 
290 IF OF-1 



THEN NS=M0-1 

300 IF NS=0 THEN LINE(20,35) 
> , 1 1 , BF 

310 IF NS=1 THEN LINE(20,50) 
) , 11,BF 

THEN LINE(35,35) 



- ( ss 



50 



( 35 , 65 
(50,50 

=3 THEN LINE(35,50)-(50,65 



320 IF NS=2 
> , 1 1 , BF 
330 IF NS; 
) , 1 1 , BF 
340 COLOR 1 

350 LINE(148, 170) -(225, 180) ,7,BF 

360 PSET < 160, 172) : PRI NT#1, "Pulsa S" 

370 IF NSO0 OR 0F=1 THEN 460 

380 LINE(40,5)~(245, 15) ,7,BF 

390 PSET (45, 7) :PRINT#1, "Tipo de spr 

i te (0, 1,2,3):" 

400 B*=" " 

410 B*=INKEY* 

420 IF B*="" THEN 410 

430 IF B*<>"0" AND B*0"1" AND B*<> 
"2" AND B*<>"3"THEN 380 



440 PRESET(236,7) , 7: PRINT#1 , B* 
450 TP=VAL(B*) 

460 IF NSO0 OR 0P=1 THEN 520 
470 REM" ' ' SPRITE. CURSOR * ' '■ 

480 FOR T=l TO 4 
490 READ D* 

500 Q*=Q*+CHR* ( VAL ( " S<B " +D* ) ) 
510 NEXT T 
520 SPRITE* < 4) =Q* 
530 IF OF-1 THEN GOSUB 1450 
540 X=68:Y=35 

550 PUT SPRITE 0,(X,Y),15,4 
560 IF INKEY*="S" THEN 890 
570 IF STICK(0)=1 THEN PUT SPRITE 0 
, (X,Y) , 1,4: Y=Y-3:GOTO550 
580 IF STICK(0)=3 THEN PUT SPRITE 0 
, (X , Y) , 1,4: X = X+3:GOTO550 
590 IF STICK(0)=5 THEN PUT SPRITE 0 
, <X, Y) , 1,4; Y=Y+3:GOTO550 
600 IF STICK (0) =7 THEN PUT SPRITE 0 
, (X, Y) , 1 , 4: X = X-3: GOTO550 
610 IF STICK(0)==2 THEN PUT SPRITE 0 
, (X,Y) ,1,4: X=X+3: Y=Y-3: GOTO550 
620 IF STICK(0)=4 THEN PUT SPRITE 0 
i (X,Y) , 1,4:X = X+3:Y=Y+3:GOTO550 
630 IF STICK(0)-6 THEN PUT SPRITE 0 
, (X,Y) , 1,4: X = X-3: Y=Y+3: GOTO550 
640 IF STICK(0)=8 THEN PUT SPRITE 0 
, (X, Y) , 1 , 4: X=X-3: Y=Y-3: GOTO550 
650 X=XM0D255: Y=YM0D255 
660 IF X<0 THEN X=255+X 
670 IF Y<0 THEN Y=255+Y 
680 REM ? ' " " AL PULSAR BARRA. . . 

690 IF STRIG(0)=-1 THEN 700 ELSE 55 
0 

700 IF X<68 OR X>187 THEN 820 

710 IF Y<35 OR Y>154 THEN 820 

720 XP=X- (X- (68+ ( INT ( (X-68) /15) ) *15 

) ) 

730 YF - Y- ( Y- ( 35+ ( I NT ( ( Y-35 ) / 1 5 ) ) * 1 5 
) ) 

740 XC=( (XP-68) /15)+1 
750 YC=( (YP-35) /15)+1 

760 IF VB*(NS, XC, YO =" 1 "THEN ^800 EL 
SE 770 

770 LINE(XP, YP)-(XP+15, YP+15) , 15, BF 
780 VB* (NS, XC, YO =" 1 " 
790 GOTO 820 

800 LINE(XP+1, YP+1) -(XP+14, YP+14) , 1 
,BF 

810 VB*(NS, XC, YC)="0" 
820 GOTO 550 

830 REM * 9 SPRITE CURSOR *■* ****** 

840 DATA 11110000 
850 DATA 11110000 
860 DATA 11110000 
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Programa 



870 DATA 11110000 

880 REM ' ' ■ ? ' 7 CREACION SPRITE F* 
890 p*="" 

900 FGR C=68 Tü 173 STEP 15 
910 FOR F = 35 TG 140 STEP 15 
920 XF= ( (F-35) /15) +1 
930 YF= ( (C-68) /15) +1 

940 IF VB*(N3,XF,YF)=" 1" THEN C*="l 

ELSE VB* (NS, XF, YF) ="0" : C*="0" 
950 IF OP=l THEN NS=MO-l 
960 S*=S*+C*:C*="" 
970 NEXT F 

980 P*=P*+CHR* ( VAL ( " |cB " +S* ) > : S*= " " 
990 NEXT C 
1000 SP*(NS)=P* 

1010 IF OP=l THEN GOSUB 1390: GOTO 1 
060 

1020 F*=F*+P* 

1030 IF TP=0 OR TP=1 THEN 1060 
1040 NS=NS+1:IF NS=4 THEN 1060 ELSE 
160 

1050 REM' » * ' 9 COLOCACION SPRITE * ' ' 

1060 SCREEN 2, TP: COLOR 15:CL3 

1070 SPRITE* (5) =F* 

1080 RUT SPRITE2, (115,60) ,7,5 

1090 LINE<5, 157)~(235, 170) , 15,BF:CÜ 

LOR 1 

1100 REM ' 9 9 OPCION MODIFICAR r - r * 

1110 PSET(12, 160) :PRINT#1, "Modifica 
r(Cuad. 1,2,3,4/N)" 
1 120 MO*=INKEY* 

1130 IF M0*<>"1" AND M0*<>"2" AND M 
0*0 "3" AND M0*O M 4" AND M0*O"N" T 
HEN 1120 

1140 IF TP=0 AND M0*="2" OR TP=1 AN 
D M0*="2" THEN 1120 

1150 IF TP=0 AND M0*="3" OR TP=1 AN 
D M0*="3" THEN 1120 

1160 IF TP=0 AND M0*="4" OR TP=1 AN 
D M0*="4" THEN 1120 



Test de listadoi 



1 170 MO=VAL <M0*> : 0P=1 
1180 IF M0*O"N" THEN 160 

1190 MO*="":OP=0 

1200 REM V ' ' y-WfimtE EN BINARIO" ' 

1210 SCREEN 0:WIDTH 40: COLOR 15 

1220 IF TP=0 OR TP=1 THEN 1320 

1230 FOR F=l TO 8 

1240 FOR NU=0 TO 3 

1250 PRINT" "jj 

1260 FOR C=l TO 8 

1 270 PR I NT VB* ( NU , C , F ) ; 

1280 NEXT C 

1290 NEXT NU 

1300 NEXT F 

1310 END 

1320 FOR F=l TO 8 
1330 FOR C=l TO 8 
1340 PRINTVB*(0,C,F) ; 
1350 NEXT C 
1360 PRINT" " 
1370 NEXT F 
1380 END 

1390 REM' ' ' ' 'SUBRUTINA MOD I F I CAR » ' ' 

1400 F*="" 
1410 FOR HV=0 TO 3 
1420 F*=F*+SP*(HV> 
1430 NEXT HV 
1440 RETURN 

1450 REM » *•* '* LLENAR PARA MOD. 

1460 FOR F=35 TO 140 STEP 15 
1470 FOR C=68 TO 173 STEP 15 
1480 XF= ( (F-35) / 15) +1 
1490 YF= ( (C-68) /15) +1 

1500 IF VB*(NS, YF, XF)="1" THEN 1510 

ELSE 1520 
1510 LINE(C,F)-(C+15,F+15) , 15,BF 
1520 NEXT C 
1530 NEXT F 
1540 RETURN 



Dibuja sprites 



5-58 
10 -146 
20 



30 - 



50 
60 
70 
80 



51 
173 
79 
114 
204 
20 
44 



1 00 
110 
1 20 
130 
140 
150 
1 60 
170 
130 



-180 
-231 



- 87 

- 40 
-136 
-102 
-143 



200 


-165 


300 


- 99 


210 


- 71 


310 


- 1 30 


220 


-198 


320 


-131 


230 


-242 


330 


-162 


240 


-251 


340 


-207 


250 


-205 


350 


-162 


260 


- 15 


360 


-113 


270 


-219 


370 


-103 


280 


-204 


380 


— 2 


^90 


- 53 


390 


-212 






_ 49 _M 239 
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700 


- 76 


830 


- 0 


960 


- 9 


1 090 


- 23 


1 220 


-224 


1350 


-198 


1480 


-174 


710 


- 12 


840 


- 8 


970 


-201 


1 100 


- 0 


1230 


-187 


1 360 


-213 


1490 


-205 


720 


- 72 


850 


- 8 


980 


- 1 38 


1110 


-206 


1240 


- 18 


1 370 


-201 


1 500 


-227 


730 


- 10 


860 


- 8 


990 


-198 


1 120 


— 1 55 


1250 


- 16 


1 380 


-129 


1510 


-201 


740 


- 46 


870 


- 8 


1000 


- 28 


1130 


- 49 


1 260 


-184 


1 390 


- 0 


1 520 


-198 


750 


- 15 


880 


- 0 


1 0 1 0 


- 12 


1 140 


- 77 


1270 


- 93 


1 400 


-157 


1530 


-201 


760 


— 5 


890 


-167 


1020 


- 40 


1 150 


- 79 


1 280 


-198 


1 4 1 0 


- 13 


1 540 


-142 


770 


- 89 


900 


-150 


1030 


-219 


1 160 


- 81 


1 290 


- 38 


1 420 


- 106 






780 


-161 


910 


- 87 


1040 


— 55 


1 170 


- 9 


1 300 


-201 


1 430 


- 33 






790 


-206 


920 


-174 


1050 


- 0 


1 180 


- 67 


1310 


-129 


1440 


-142 






800 


- 81 


930 


-205 


1060 


-150 


1 190 


-204 


1 320 


-187 


1 450 


- 0 






810 


- 1 60 


940 


- 92 


1070 


-171 


1 200 


- 0 


1 330 


-184 


1 460 


- 87 


TOT 







N." I « 4 - 475 PTAS . N- 5 - 150 PTAS. N - 6 • 150 PTAS. N.- 7 - 150 PTAS. N.- 8 - 150 PTAS. N.~9 y 10 . 300 PTAS 






N.° 1 1 - 175 PTAS. N.° 12 -175 PTAS. N.° 13 - 175 PTAS. N." 14 -175 PTAS. N.° 15 -175 PTAS. 



¡SI TE HACE FALTA ALGUN NUMERO DE 



PIDELO HOY MISMO! 



Para contar con la más completa colección de programas de MSX sólo tienes que recortar o fotocopiar el cu- 
pón y dirigirlo a Dpto. Suscripciones MSX CLUB DE PROGRAMAS. Roca i Batlle, 10-12. 08023 Barcelona. 



BOLETIN DE PEDIDO 



| Sí, deseo recibir hoy mismo los números de MSX CLUB DE PROGRAMAS, libre de I 

gastos de envío, por lo que adjunto talón n.° del Banco/Caja 

por el importe de ptas. a nombre de MANHATTAN T£ÁNsSe£ $j£ 

I NOMBRE Y APELLIDOS 

| CALLE N.° CIUDAD . 



[ Df» PROVINCIA , 



. TEL. . 



Monitor al día 




HYPER SPORTS 3 

Otra novedad Konami 

Konami — distribuida en España 
por Serma — , anuncia que co- 
mercializa un nuevo juego que 
hará las delicias de los usuarios de 
MSX. En efecto, este cartucho previsto 
para que intervengan uno o dos juga- 
dores, incluye cuatro competencias que 
ponen a prueba la capacidad física y 



mental de los usuarios. Ciclismo, triple 
salto, deslizamiento y salto con pértiga 
configuran un verdadero desafío al en- 
tretenimiento y a la destreza. El precio 
de Hyper Sports 3 es de unas 5.200 pts. 
aproximadamente. Lo puedes comprar 
en cualquier tienda de informática o di- 
rectamente a la casa Serma, Bravo Mu- 
rillo 377, 3." A 28020 Madrid. 



EL MSX-2 DE NATIONAL 

La super máquina 

La compañía japonesa National, 
más conocida entre nosotros a 
través de sus productos Panaso- 
nic, ya cuenta en Japón con dos mode- 
los MSX-2. Se trata del FS-3900 y del 
FS-5500. Precisamente este último mo- 
delo es una especie de super máquina 
que incorpora una serie de novedades 
que lo hacen singular relacionándola 
con otros ordenadores del mismo seg- 
mento. Entre esas novedades citaremos 




la track ball incorporada que facilita el 
diseño de gráficos punto por punto y 
un vídeo software especial para la edi- 
ción de imagen, titulación, etc. Puestos 
en contacto con la Panasonic España, 
nos han comunicado que por el mo- 
mento estos aparatos no serán importa- 
dos a este país debido a la estrategia 
comercial de la central japonesa. 



DATA BECKER ABRE TIENDA 



y software, hardware 



L empresa Ferré Moret, S.A. edi- 
tora de los libros informáticos 
Data Becker, acaba de abrir en 
Barcelona -Córcega 299-, una tienda 
destinada a satisfacer todas las necesi- 
dades de los usuarios informáticos, fcn 
este local, exquisitamente decorado, los 
clientes, según palabras de su director 
Fernando Prüfert y de su encargado, 
Xavier Castelltort, «podrán encontrar 
libros de nuestra editorial para los 
principales sistemas informáticos y 
obviamente para el MSX por el que 
Data Becker apuesta muy fuerte». 

Pero la tienda Data Becker no es solo 
un escaparate de libros de la editorial, 
sino también un sitio especializado en 
el que se puede adquirir tanto hardware 
como periféricos teniendo el mas fiable 
I de los asesoramientos. También es po- 
1 sible conocer las principales publica- 
ciones informáticas del mercado "el 
mejor software (juegos, utilidades, 
aplicaciones, etc.), papel para impreso- 
ras, accesorios y reparación de equipos. 

Cada mes y como parte de »J*roj^ 
gia comercial nos 




Prüfert la tienda tendrá una interesantí- 
sima oferta ya sea en hardware, como 
en software, periféricos o accesorios. 
Asimismo los clientes podrán tener de- 
mostraciones de algunos productos 
realmente interesantes, como el robot 
Fischer Technic que puede desempeñar 
una serie de tareas y cumplir funciones 
de plotter para dibujar y diseñar La 
versión MSX aún no está disponible, 
pero lo estará muy pronto. 

Fernando Prüfert aprovecha esta 
ocasión para anunciar que la editorial 



Ferré Moret tiene la intención de 
impulsar y publicar libros informáticos 
de autores españoles, por lo que esta 
abierta la recepción de originales, los 
cuales serán analizados y evaluados por 
lectores especializados de la misma edi- 

t0 por nuestra parte, felicitamos a Data 
Becker por la iniciativa de abrir una 
tienda tan interesante y magníficamen- 
te provista, que sin duda solventara 
más de un problema técnico o de pro- 
visión a muchísimos usuarios. 
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MONITOR COLOR I 



Con la firma de Idcalogic 

Entre los productos que ofrece 
Idealogic, prestigiosa casa de 
software española, se encuentra 
su monitor color II de 14 pulgadas. Sus 
características generales son entrada 
señal de vídeo compuesta y RGB com- 
patible directamente con los ordenado- 
res de las principales marcas y por su- 
puesto con los MSX. Sus prestaciones 
profesionales son sonido incorporado 
HiFi, chasis de alta resolución, pantalla 
de media/alta resolución, peana girato- 
ria opcional, filtro de pantalla opcional, 
asas de transporte, salidas para altavoz 
externo. Cuenta además con la posibi- 
lidad de conexión en serie con conmu- 
tador final de serie incorporado. Salida 
de señal vídeo Pal, doble entrada/salida 
conmutable, entrada simultánea para 
CPU's o CPU y vídeo. 



INTERFACE RS232C 

VU 0042 PHILIPS 

Una de las grandes posibilidades 
de los ordenadores MSX es su 
capacidad de comunicación. 
La interface serial RS 232C modelo VU 
0042, que se conecta en el slot dedicado 



a los cartuchos dando así gran operati- 
vidad al ordenador MSX. Gracias a es- 
ter periférico se puede transferir infor- 
mación entre dos ordenadores MSX y 
entre un ordenador MSX y otro de dis- 
tinto sistema o entre un ordenador 
MSX y cualquier otro aparato provisto 
de interface RS 232C. La comunicación 
puede efectuarse mediante un cable co- 
nector apropiado o a través de la línea 
telefónica mediante modem y el soft- 
ware de comunicación adecuado. En tal 
caso es necesario que los aparatos co- 
nectados utilicen el mismo protocolo 
de comunicaciones. Los MSX pueden 
fijar dicho protocolo mediante la ins- 
trucción COMINI. Este cartucho 
interface de Philips posee una memoria 
ROM de 8K destinado a otorgar ins- 
trucciones adicionales en MSX BASIC 
que regulan el funcionamiento de la 
VU-0042 Philips y la transmisión de 
información. 




VF-100 CANON 



Un disk drive sólido 

Canon ya dispone de una unidad 
de disco para su aparato MSX 
de grandes prestaciones y no- 
table versatilidad para el almacenaje de 
datos y un rápido acceso a ellos. La 
VF-100 trabaja con un floppy de 3,5 
pulgadas, doble densidad y doble cara 
y tiene una capacidad de almacenaje de 
un megabyte sin formatear y de 737,3 
formateado. La interface que lo pone 
en contacto con el ordenador incluye 
subprogramas BASIC entrada/salida, 
MSX-DOS BASIC, MSX DISK BA- 
SIC y un subprograma de utilidad. El 
aparato se entrega con todas las cone- 
xiones y manuales necesarios y un 
floppy MSX-DOS. También incluye 
conexión para expansión de unidad de 
disco. 
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Monitor al día 




LA CAMA QUICKSHOT IV 

Spectravídeo mueve el MSX 

La gama de joysticks Quickshot 
IV presenta el modelo SVI104 
en cuatro versiones que se adap- 
tan perfectamente a las necesidades de 
los usuarios y al tacto de los mismos. 
En realidad este mando se basa en el 
modelo I de la serie, pero la novedad 
radica fundamentalmente en que las 
distintas versiones pueden obtenerse 
simplemente con cambiar los mangos. 
Estos han sido concebidos para manio- 
brar con mejores posibilidades los jue- 
gos, ya sean deportivos, de combate o 
de carreras. Se presenta en color negro 
y sólo existe la versión Atari, es decir el 
estándar de joystick que incorporan to- 
dos los ordenadores MSX. El precio 
aproximado es de unas 2.500 pts. 




CB-7S BOLA GRAFICA SONY 

Para diseñar a voluntad 

Uno de los periféricos más inte- 
resantes para el diseño de grá- 
ficos es sin duda, la bola gráfi- 
ca. Con la GB-7S de Sony se pueden 
obtener los diseños más complejos de- 
bido a su gran precisión en el trata- 
miento de los pixels. De este modo 
pueden hacerse cualquier tipo de dibu- 
jo, con distintos colores, borradores, 
reglas, compases, paletas, efectos espe- 
ciales y un sinnúmero de opciones más. 
Y por si esto no bastara para analizar 
desde el punto de visja de un progra- 
mador, lo conseguido en pantalla se 
puede obtener en un listado BASIC 



MSX. Sus características son visible- 
mente ventajosas para los usuarios que 
quieren aprender. El precio aproxima- 
do de este periférico es de 14.900 pts. 



IMPRESORA MATRICIAL 



PRN-120 Sony 



Este modelo de impresora matri- 
cial comercializado por Sony es 
uno de los más interesantes del 
mercado. Tiene una cadencia de impre- 
sión de 120 caracteres por segundo y, 
lo que es más importante, no necesita 
empear papel térmico. Cualquier tipo 
de papel convencional se puede em- 
plear para obtener listados o llevar la 
gestión de negocio, imprimiendo car- 
tas, circulares, etiquetas o realizando 
gráficos estadísticos. Otro detalle a te- 
ner muy en cuenta de cara al bolsillo 
del usuario es que emplea cintas comu- 
nes de máquina de escribir, las cuales 
son fácilmente cambiables. Posee 96 
caracteres estándar ASCII y 96 itálicos. 




- 



MAD FOX 



La carrera más apasionante 



a contamos con lo que segura- 
mente será un nuevo éxito en 
juegos. Nuestros programado- 



Y 



res y diseñadores de juegos, superán- 
dose en cada ocasión, ahora nos sor- 
prenden con una fantástica carrera a 
través del desierto. El protagonista es 
Mad Fox, un héroe solitario cuya única 
arma es su velocísimo coche con el que 
debe tratar de cubrir la mayor distancia 
posible por un inhóspito desierto reco- 
giendo bidones del único combustible 
que queda en el planeta. Pero en su ver- 
tiginosa carrera no sólo debe sortear 
obstáculos naturales, sino también el 
ataque de otro solitario enemigo que 
busca su destrucción y así quedarse con 
todo el combustible. Este juego tiene 
garantía de Manhattan Transfer, S.A. 
tanto de su calidad como de su poder 
de diversión. 



PRIMER T00LKIT PHILIPS 
EN ESPAÑA 

Entregado a Idealogic 

El Software Manager de Philips 
Ibérica, Antonio Roldán, y los 
responsables del Area de Inves- 
tigación de Eidhoven, P.P. Habich y B. 
Duinkerken, entregaron a Idealogic el 
primer Toolkit para MSX-2. El Toolkit 
(paquete de desarrollos de programas) 
es el primero que se entrega a una em- 
presa de software en Europa y será el 
único que exista en España. La entrega 
consta de compiladores de lenguaje C y 
Pascal, programas de dibujo y diseño, 
sintetizadores de voz y sonido, digitali- 
zador de vídeo, ensambladores, debbu- 
gers, etc., y manuales e información de 
más de 3.000 páginas. La intención de 
Philips es impulsar y facilitar el trabajo 
de los programadores y diseñadores de 
software para MSX-2 en nuestro país, 
demostrando la confianza depositada 
tanto en el futuro del estándar como en 
la calidad de los profesionales españoles. 
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BIENVENIDOS A 

UN SOFTWARE DE ALTA CALIDAD PARA MSX 





KRYPTON. La batalla más audaz de las gala- 
xias en cuatro pantallas y cuatro niveles de 
dificultad. Un Juego cuya popularidad es cada 
vez más grande entre los usuarios del MSX. 
PVP. 500 Ptas. 



El secreto de la 



Ü-BOOT. Sensacional Juego de simulación 
submarina en la que tienes que demostrar tu 
pericia como capitán de un poderoso subma- 
rino de guerra. Panel de mandos, sonar, tor- 
pedos, etc. PVP. 700 Ptas. 



QUINIELAS. El más completo programa de 
quinielas con estadística de la liga, de los 
aciertos, etc. e impresión de boletos. Acertar 
no siempre es cuestión de suerte. PVP. 700 
Ptas. 



SNAKE. Entretenido y muy divertido Juego 
en el que Snake procura comer unos núme- 
ros que la engordan. Tanto las murallas que 
la rodean como su larga cola pueden ser 





EL SECRETO DE LA PIRAMIDE. Atrevido 
Juego de aventuras a través de I03 misterios 
y peligros que encierran los laberínticos pa- 
sillos de una pirámide egipcia. (Atrévete ai 
puedes! PVP. 700 Ptas. 



STAR RUNNER. Conviértete en el audaz 
piloto interestelar y lucha a muerte, a 
través del hiperespacio, contra las defen- 
sas del tirano Daurus. Dos pantallas y 
cinco niveles de dificultad. PVP. 1.000 pts. 



PL0PPY, El Preguntón. Un verdadero desafio 
a tus conocimientos de Geografía e Historia 
española. Ploppy no perdona y te costará 
mucho superarlo. PVP. 1.000 Ptas. 



Nombre y apellidos: 



Dirección: 



. Tel.: 



□ KRYPTON 

□ U-BOOT 

□ QUINIELAS 



Ptas. 500- □ SNAKE 

Ptas. 700,- □ EL SECRETO DE LA PIRAMIDE 

Ptas. 700- □ STAR RUNNER 

Gastos de envío certificado por cada cassette Ptas. 70,- 

a la orden de Manhattan Transfer, S A 



Ptas. 600- 
Ptas. 700- 
Ptas. 1.000- 



L Gastos de envío certificado por cada cassette Ptas. 70,- 
Rem it o tal ón banca rio de Ptas. a la orden de Manhattan Transfer, S A 

ATENCION: Los suscriptores tienen un descuento del 10% sobre el precio de cada cassette. 

IMPORTAN te ■ 

indicar en ei sobre MSX CLUB DE CASSETTES. ROCA I BATLLE, 10-12 BAJOS. 08023 BARCELONA 



NUESTRAS CASSETTES NO SE VENDEN EN QUIOSCOS. LA UNICA FORMA DE ADQUIRIRLAS ES SOLICITANDOLAS 
A NUESTRA REDACCION. ¡NO SE ADMITE CONTRA REEMBOLSO! 



JOYCARD DIGITAL 



YANJEN 



Un nuevo concepto de controlador de juegos 
y gráficos digital 




MSX Periféricos 




COGE EL MANDO 
Y DISPARA 



Cualquier usuario sabe qué 
es un joystick y para qué sir- 
ve. Pero... ¿Sabe realmente 
todo lo que debe saber de este 
asunto? 



UN POCO DE 
HARDWARE 



El 90% de nuestros lectores están 
hartos de matar marcianos o 
cualquier otro tipo de malvados 
enemigos que atentan contra sus inte- 
reses en el universo de su ordenador. 
Algunos de ellos — los más osados — 
incluso se han atrevido en alguna oca- 
sión a despanzurrar su joystick para 
hacerse una idea de cómo funcionan. 
Es posible que la mayoría de ellos ha- 
yan encontrado una placa de bakelita 
con un circuito impreso y unos arcos 
concéntricos que hacen contacto con 
unas terminales metálicas en la palanca 
del joystick. En realidad, se trata de 
una resistencia variable que envía un 
determinado voltaje al port del ordena- 
dor. 

Los joystick son periféricos de entrada 
que suministran al ordenador unas 
señales externas, que una vez decodifi- 
cadas le indican las acciones que debe 
realizar. 

Los ports de los joysticks tienen nueve 
patillas dispuestas en la manera que 



FIGURA 1 
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ilustra la figura 1 y cada una de sus pa- 
tillas realiza una misión. Así pues, las 
patillas numeradas del 1 al 4 se en- 
cargan de controlar las cuatro direccio- 
nes cardinales (adelante, atrás, izquier- 
da y derecha); la patilla 5.' envía 5 vol- 
tios, la 6. J y 7.' controlan el primer y 
segundo disparador (si lo hubiese en el 
mando) mientras que la $; y 9. 1 no 
operan. 

Estos ports no son otra cosa que inter- 
faces, que hacen procesable la informa- 
ción que enviamos mediante los movi- 
mientos de la palanca, es decir, decodi- 
fican la señal y en función de ello y del 
programa, los sprites se mueven en una 
u otra dirección. 

Hasta ahora, hemos hablado del joys- 
tick tradicional, compuesto por una 



palanca de mando y uno o dos dispara- 
dores, pero existen actualmente mode- 
los más sofisticados dispuestos a satis- 
facer los deseos del jugador más exi- 
gente, como son los joycards pensados 
para juegos del tipo HIPERSPORTS, 
cuyo funcionamiento es análogo al de 
los cursores del ordenador (evitando 
por lo tanto el que se destroce la má- 
quina a mamporro limpio para vencer 
al contrincante) y las «Joyballs» cuyo 
funcionamiento se detalla en la figura 2 
y que, gracias a su diseño permiten más 
ángulos de desplazamiento. 

¿QUÉ CONTROLA AL 
JOYSTICK? 

Las rutinas del BIOS (Basic Input Out- 
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MSX periféricos i 



put System) GTSTCK y GGTRIG son 
las que se encargan de gestionar la pa- 
lanca y el disparador del joystick res- 
pectivamente: 

La rutina GTSTCK, que se ejecuta me- 
diante CALL &H00D5 es la que lee el 
estado de las teclas del cursor o del 
joystick. El acumulador contiene la 
identificación del joystick empleado. 
En el caso de que el contenido de este 
registro sea 0, el ordenador interpretará 
que estamos utilizan3o las teclas del 
cursor. Si el contenido es 1, la lectura la 
efectuará en el port n." 1, y si es 2 en el 
port n." 2. 

La dirección del joystick seleccionado 
en el acumulador adquirirá los siguien- 
tes valores: 

0 para el joystick centrado 

1 hacia arriba 

2 arriba a la derecha 

3 derecha 

4 abajo a la derecha 

5 abajo 

6 abajo a la izquierda 

7 izquierda 

8 arriba a la izquierda 

Los registros dobles AF, BC, DE v HL 
pueden verse alterados por esta llama- 
da, y además se desconectan las inte- 
rrupciones. 

La rutina GTTRIG se ejecuta mediante 
un CALL &H00D8 y devuelve el esta- 
do, bien de la barra de espacio o bien de 
uno de los botones disparadores del 
joystick. El acumulador alberga los 
contenidos siguientes dependiendo de 
la pulsación del disparador: 

0 Barra de espacios 

1 Disparador n." 1 joystick 1 

2 Disparador n." 2 joystick 1 

3 Disparador n." 3 joystick 2 

4 Disparador n." 4 joystick 2 
Cuando un disparador está pulsado, el 
acumulador devuelve el valor 255. En 
caso contrario, devuelve 0. La llamada 
a esta rutina altera los mismos registros 
dobles que la anterior, y también de- 
sactiva las interrupciones. 

Tras lo expuesto, pasamos a comentar 
algunos de los joysticks disponibles en 
el mercado: 

JOYSTICK QUICKSHOT 
SPECTRA VIDEO 

Es quizá el joystick por antonomasia. 
El diseño ergonómico de la palanca lo 
hace cómodo y rápido de manejo. Lle- 
va dos botones disparadores, uno arri- 
ba de la palanca y otro en la base para 
poder disparar con mayor velocidad. 
En su base lleva cuatro ventosas que 
permiten fijarlo sobre una superficie li- 
sa, y lleva un cable lo suficientemente 



DETALLE DEL CODIFICADOR 




DISCO M DETECTOR 

CODIFICADOR OPTICO 



largo como para no tener que estar 
constantemente encima de la consola. 

JOYSTICK JS 75P SONY 

La novedad más interesante que pre- 
senta este joystick es el hecho de que 
ningún cable conecta el joystick al 
ordenador. La transmisión de los mo- 
vimientos se efectúa mediante rayos in- 
frarrojos que activan los sensores espe- 



FIGURA 2 



CODIFICADOR 




SEMIESFERA 



CODIFICADOR 



cíales de la parte de la unidad que se 
conecta al port del joystick. Tiene un 
radio de acción de hasta 7 metros, lo 
que lo convierte tal vez en el joystick 
más cómodo. 

JOYBALL 
SPECTRA VIDEO 



Ofrece 



abilidad al utilizar 



JOYCARD 
SERMA 
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microswitches con una vida media de 
decenas de millones de contactos. Su 
diseño en forma esférica lo convierte en 
virtualmente indestructible además de 
aportar más ángulos de desplazamien- 
to. Lleva amén de un conmutador para 
zurdos dos enormes botones de dispa- 
ro con un LED que indica cuando es- 
tán activados. También incorpora ven- 
tosas en su base para fijarlo a una su- 
perficie lisa. 

JOYCARD SERMA 

He aquí el joystick para los deportistas 
del ordenador. Indudablemente, con 
esta joycard obtendrán una neta ventaja 
sobre los contrincantes que utilicen 
modelos más tradicionales. Su especial 
diseño y la inclusión de dos disparado- 
res asegura la máxima rapidez en los 
programas de deportes además de tran- 
quilizar bastante a los padres que su- 



JS 75 P de SONY 



fren por el «aporreamiento» que recibe 
'a consola en cada competición. 

JOYSTICK QUICKSHOT 
VII SPECTRA VIDEO 

Spectravideo nos sorprende una vez 
más con un joystick que rompe total- 
mente con los diseños habituales. La 
novedad de este joystick es que puede 
ser manejado con una sola mano y sin 
necesidad de una mesa de apoyo. El 
mango es sustituido por un botón pla- 
no para usar con la yema del dedo muy 
sensible y fácil de manejar. Los botones 
de disparo con capacidad de tiro auto- 
mático llevan LEDS indicadores con la 
misma función que en la joyball. 

JOYCARD DIGITAL 
YANJEN 

Este mando está especialmente diseña- 
do para evitar todo tipo de esfuerzos al 



JOYBALL 
SPECTRAVIDEO 





JOYCARD DIGITAL JANSEN 



jugador. Responde eficaz y rápidamen- 
te a las órdenes de dirección y disparo. 
Para ello cuenta con una superficie cir- 
cular dividida en cuatro sectores que 
responden a otras tantas direcciones y 

3ue se activan con sólo posar la yema 
e los dedos. Dispone también de dos 
botones de disparo. Uno de ellos es pa- 
ra activar ráfagas. La distribución en 
España es realizada por Arkofoto, S.A. 
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ROBOT ARM, 
EL BRAZO 
SPECTRAVIDEO 



MSX ya cuenta en España 
con un robot que amplía las 
prestaciones del aparato y 
prepara al usuario en el uso 
de un elemento que será coti- 
diano en el futuro: el robot. 



Si bien pensamos en la cibernética 
como algo del próximo siglo, lo 
cierto es que ella ya forma parte 
de nuestra vida. Al menos en algunos 
sectores de la sociedad el robot es un 
elemento imprescindible para desem- 
peñar una serie de tareas rutinarias o 
muy delicadas. Claro que, también es 
cierto, siempre imaginamos al robot 
con forma humanoide y muy pocas ve- 
ces como un simple brazo articulado 
capaz de pintar decenas de coches en 
serie, montarlos y dejarlos listos para el 
uso o bien manipular sustancias peli- 
grosas, entre un sin fin de tareas de ca- 
rácter industrial. Pues bien, tal vez por 
ahora debamos ser más realistas y dejar 
el robot tipo R2D2 y limitarnos a «ju- 
gar» con un elemento que nos permiti- 
rá conocer los fundamentos mínimos 
de una máquina robot aplicada a pe- 
queñas y simples funciones. En este 
sentido, el Robot Arm o brazo robot 
de Spectravídeo es un juguete intere- 
sante. 

Robot Arm SVI 2000C 

Ante todo es necesario decir que el Ro- 
bot Arm es sólo un juguete educativo. 
Lo es porque introduce a los más jóve- 
nes en el conocimiento básico de la ro- 
bótica de programación simple y ele- 
mental, y es capaz de despertar la cu- 
riosidad y desarrollar la inteligencia. 
El brazo robot SVI 2000C es un apara- 
to muy simple, provisto de un meca- 
nismo muy preciso que consta de una 
base, un antebrazo, un brazo, una 
muñeca y unas pinzas, es decir que tie- 
ne las mismas características de tu bra- 
zo. Cada uno de estos miembros están 
conectados a sendas juntas controladas 
cada una de ellas por un motor. Esto 
permite que cada parte del brazo pueda 
moverse de forma autónoma. La forma 
de operarlo es muy sencilla y puedes 
hacerlo sólo valiéndote de dos joys- 
ticks, sin necesidad de conectarlo a tu 
ordenador MSX o bien conectándolo a 




él a través de un cartucho ROM, que 
lleva un lenguaje llamado ROGO y 
que te permite programarlo. 

Forma de operar 

Para operar con el brazo sin ordenador 
y valiéndote únicamente de los joys- 
ticks sólo tienes que conectar estos en 
las ranuras correspondientes, colocadas 
en la base. Los joysticks que emplea 
son los comunes del estándar MSX, es 
decir los de tipo Atari. 
Al principio cuesta un poco dominar y 
coordinar los movimientos, pero con 
un poco de práctica se consigue domar 
el brazo y sus distintas partes. De todos 
modos resulta más interesante operar a 
través del cartucho interface. 



Si optas por esta variante de uso lo pri- 
mero que debes hacer es enchufar el 
cartucho en la ranura correspondiente 
de tu MSX, después conecta los dos ca- 
bles con conexiones tipo D — similares 
a las del joysticks — , en el interface y en 
el brazo y después enciende tu ordena- 
dor. 

Casi en el acto aparece en pantalla una 
frase de salutación al Robot Arm de 
Spectravídeo y una interrogación (?) 
que te indica que ya estás en condicio- 
nes de emplear el teclado para empezar. 
Casi inmediatamente aparece el menú 
de ROGO, que es un lenguaje muy pa- 
recido al Logo. 

El control de las cinco juntas se hace 
mediante los diez primeros comandos 
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que mueven la base en sentido de las 
agujas del reloj — BC-BASE CLOCK- 
WISE — ; en sentido opuesto a las agu- 
jas del reloj — BA-BASE Anticlockwi- 
se — ; subida del brazo — LU-Lower 
Arm Up — ; bajada del brazo — LD- 
Lower Arm Down — ; subida del ante- 
brazo — FU-Fore Arm Up — ; bajada 
del antebrazo — FD-Fore Arm 
Down — ; movimiento de la muñeca en 
sentido de las agujas del reloj — WA- 
Wrist Clock Wise — ; movimiento de la 
muñeca en sentido contrario — WA- 
Wrist Anticlock Wise — ; apertura de 
pinzas — FO-Forceps Open — ; cierre 
de pinzas — FC-Forceps Cióse — . 
Conociendo estos comandos el paso si- 
guientes es determinar qué parte del 
Brazo quieres mover y hasta qué dis- 
tancia lo vas a llevar. La distancia se 
mide en unidades de tiempo, de modo 
que si deseas elevar el antebrazo y te- 
cleas FU90, el antebrazo se elevará 90 
unidades de tiempo, pero tales unida- 
des de tiempo no están relacionadas 
con el tiempo real, sino que es una uni- 
dad de medida convencional. 

Lenguaje ROGO 

El lenguaje ROGO, que incorpora el 
cartucho interface, se asemeja en su 
concepción al famosísimo LOGO del 
cual ya hemos hablado (MSX CLUB 
N. ,,s 8 y 12). El ROGO te permite usar 
más de un comando logrando que el 
Robot Arm lleve a cabo una serie de 
movimientos a los que puedes compli- 
car en secuencias distintas y conseguir 




así que ejecute determinada acción. 
Obviamente tienes que valerte de los 
comandos propios del Robot en com- 
binación con los del lenguaje ROGO y 
desarrollar un programa. Por ejemplo 
si tecleamos BA100 FU200 LD 120 
W A 1 00 FO90 FC80 lo que el robot ha- 
rá será girar la base hacia la izquierda 
100 unidades de tiempo, subir el ante- 
brazo 200 unidades de tiempo, bajar el 
brazo 120 unidades de tiempo, girar la 
muñeca hacia la izquierda 90 unidades, 
abrir las pinzas hasta 90 y cerrarlas has- 
ta 80. A partir de aquí se pueden hacer 
infinidad de secuencias y combinarlas 
para que el brazo las ejecute una tras 
otra. 

Claro que hay que tener en cuenta que 
los movimientos del robot no son ili- 
mitados. Las rotaciones básicas alcan- 
zan un máximo de 270", el brazo 90", el 
antebrazo 85" y las pinzas un máximo 
de 108". Así que a la hora de programar 
sus movimientos tienes que considerar 
las posibilidades reales que tienes para 
llevarlos a cabo, cosa que se consigue 



con un poco de práctica y empezando 
con programas muy simples. 
La orden SHOWARM de Rogo tiene 
la misión de mostrarte en la pantalla de 
tu monitor una representaición del bra- 
zo robot en cuatro perspectivas dife- 
rentes. En ellas puedes ver, en la venta- 
na 1, la simulación de los movimientos 
de los ejes 2 y 3; en la ventana 2, mues- 
tra la rotación del eje 1 ; en la ventana 3, 
la vista frontal de las piezas y revela la 
rotación del eje 4; la ventana 4 muestra 
el cierre y apertura de las pinzas vistas 
de perfil. 

El modelo simulado también puede ser 
sincronizado con el Robot Arm de tal 
forma que puedas seguir en pantalla los 
movimientos que realiza este último. 
El cartucho interface también incorpo- 
ra un test rutinario (comando SELF- 
TEST), que permite la comprobación 
de todas las partes del brazo robot y 
revisa cada junta comprobando si su 
funcionamiento es correcto. 
En síntesis podemos decir que se trata 
de un juguete educativo, que introduce 
a los más jóvenes en la técnica elemen- 
tal de la robótica y permite comprobar 
cómo un ordenador puede controlar 
los movimientos de máquinas determi- 
nadas. 

El precio aproximado de este periférico 
es de 9.500 pts, el precio del interface es 
de 11.500, aunque recordamos que se 
puede comprar sin éste. La única 
observación es que el manual se entrega 
en inglés, cosa que esperamos que SVI 
corrija en beneficio de los usuarios. 
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■ Por Joaquín López ¡ 



RUTINAS DE 
CONTROL DE JUEGOS 



Conocer el manejo de los 
joysticks resulta imprescin- 
dible para programar cual- 
quier juego. El artículo que 
sigue detalla las rutinas ne- 
cesarias para el control de los 
sprites. 




A título de preámbulo, recordad 
que la instrucción BASIC que 
lee el puerto de los joysticks es 
STICK (número de mando). Cuando 
se especifica un cero en el número de 
mando, se comprueban los cursores del 
teclado, en otro caso, se verifica el 
joystick correspondiente. La función 
devuelve la dirección actual en la que se 
encuentra el mando de juegos en un en- 
tero comprendido entre 0 y 8 (ver figu- 
ra 1). Naturalmente un cero indicará 
que no se ha registrado movimiento al- 
guno. En cierto modo este artículo se 
complementa con «A la orden de man- 
do» (MSX CLUB N. ü 5). 

CUATRO FORMAS DE 
LEER UN JOYSTICK 

A continuación voy a mostrar varias 
maneras de aprovechar la orden 
STICK. Para ello, me limitaré a despla- 
zar un SPRITE atendiendo a los reque- 
rimientos de las teclas del cursor, aun- 
que, como ya he dicho, basta cambiar 
el número identificador del mando para 
leer un joystick. 

Ante todo, es necesario teclear estas lí- 
neas, respetando los números que tie- 
nen asignadas: 

20 ¿XREEN2 

30 FORV=0TO7: A$=AS+CHR$ 

(255; : NEXT 

4 0 SPRITES C O) =A$ 

50 X*=Í24 : Y=92 

60 PUTSPRItáb, CX, Y> 

100 A=3TICKC0>: IFA-0THE 

N100 

Como podéis observar en el listado, es- 
te programa asigna un pequeño cuadra- 
do al SPRITE 0 y se prepara para si- 
tuarlo en las coordenadas especificadas 
por las variables X e Y. Asimismo, el 
estado de las teclas del cursor será leído 
por la línea 100, que repetirá la opera- 
ción si no se pulsa ninguna de ellas. 
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l-CONDICIONES 
IF/THEN 

Si tomo en consideración los progra- 
mas que vosotros, los lectores, mandáis 
a esta redacción, puedo asegurar que la 
única manera que tenéis de leer los 
mandos de juegos es empleando condi- 
ciones del tipo IF/THEN. Este sistema 
es, con mucho, el peor, puesto que em- 
plea demasiado tiempo y derrocha bas- 
tante memoria. Tened presente que la 
velocidad de respuesta resulta crítica en 
casi todos los programas de juegos, por 
lo que me referiré a ella como elemento 
primordial para juzgar las bondades de 
cada método. 

Os aconsejo que completéis el listado 
anterior con las líneas que siguen y eje- 
cutéis el programa: 

160 »###### CGNDIC. (IF 

THEN) ####### 
170 IFA=lTHENY=Y-2 : GOTO 
60 

180 IFA=2THENY=Y-2 : X=X + 
2: GOTO60 

190 IFA=3THENX=X+2 : GOTO 
60 

200 IFA=4THENX=X+2: Y=Y+ 
2: GOTO60 

210 I FA=5THENY=Y+2 : GOTO 
60 

220 IFA=6THENY=Y+2: X=X- 
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2: GOTO60 

230 I FA=7THENX=X-2 : GOTO 
60 

240 Y=Y-2: X=X-2: GOT060 



Además de los inconvenientes citados 
anteriormente, emplear condiciones 
hace que la velocidad sea irregular, 
puesto que los valores que se comprue- 
ban en las primeras líneas se toman en 
consideración más rápidamente. Así, el 
SPRITE asciende con mayor facilidad 
que desciende y se desplaza hacia la de- 
recha más rápido que hacia la iz- 
quierda. 

2-OPERADORES 
LOGICOS 

Los operadores lógicos tal vez sean los 
grandes desconocidos del BASIC (pro- 
fundizaremos en el tema en un futuro 



próximo). En síntesis, se trata de com- 
probar una determinada condición en- 
cerrada en un paréntesis. Si ésta se 
cumple, el resultado tomará el valor 
verdadero (-1), de no ser así, se asigna- 
rá un cero a la expresión. 
Presumo que habréis tecleado las líneas 
anteriores y tendréis una idea aproxi- 
mada de la velocidad con la que se 
mueve el SPRITE cuando se accionan 
los cursores. Ahora, probad con los 
operadores lógicos y veréis cómo la ve- 
locidad se incrementa ligeramente, a la 
par que se ahorra memoria. He aquí el 
listado: 



130 ' ###### OPERADORES 

LOGICOS ###### 

140 Y=Y+2* < A<30RA=8 ) -2 

*<A>3ANDA<7> 

150 X=X+2*(A>5)-2*(A>1 

ANDA<5) : GOTO60 



3-LA INSTRUCCION 
ON GOTO 

Los dos sistemas anteriores se basan en 
la comprobación, mediante un progra- 
ma, del valor de la variable asignada al 
estado de las teclas del cursor. Parece 
razonable pensar que el sistema opera- 
tivo y el intérprete BASIC serán más 
veloces a la hora de hacer comproba- 
ciones. En esto último se funda a la ho- 
ra de hacer comprobaciones. En esto 
último se funda nuestro tercer método: 
permitir que una instrucción ON GO- 
TO decida cuál es el valor de la varia- 
ble. 

Añadid las líneas que siguen a conti- 
nuación. Confío en que resultaréis sor- 
prendidos por la velocidad que alcan- 
zada el SPRITE. 



110 '########## ON GOTO 
############# 

120 ONAGOTO250, 260, 270, 

280, 290, 300, 310, 320 

250 Y=Y-2:GOTO60 

260 Y=Y-2 : X=X+2 : GOTO60 

270 X=X+2:GOTO60 

280 X=X+2: Y=Y+2: GOTO60 

290 Y=Y+2:GOT060 

300 Y=Y+2: X=X-2: GOTO60 

310 X=X-2:GOTO60 

320 Y=Y-2:X=X-2:GOTO60 

Sin duda, la mejor forma de leer las te- 





300 
310 
320 
330 
340 



LD 

ADD 

LD 

LD 

RET 



A,H 
A,B 
H, A 

( 44998 ),HL 



cías del cursor en BASIC en usar la 
orden ON GOTO. La mayor cantidad 
de memoria empleada se compensa cor 
creces con el notable incremento de ve- 
locidad. 



EL EFICAZ CODIGO 
MAQUINA 

Nada como el código máquina para 
obtener rapidez y ahorro de memoria. 
Sin embargo, no todo pueden ser ven- 
tajas. Si intercaláis una rutina rápida de 
lectura en un programa BASIC, debe- 
réis resignaros a que el intérprete reco- 
nozca la función USR, transfiera los 
parámetros solicitados, apile las direc- 
ciones de retorno y ceda el control. Lo 
anterior necesita su tiempo, por lo que 
la velocidad, aunque ligeramente supe- 
rior, corre pareja con el tercer método 
(ON GOTO). La solución: construir 
un juego escrito integremante en 
ASSEMBLER. 

Aunque no os veáis con fuerzas para 
realizar esto último, estudiad la rutina 
que sigue, porque puede serviros de 
ayuda para introduciros en el código 
máquina. Aquí tenéis su listado en 
ASSEMBLER: 



10 


ORG 


45000 


20 


XOR 


A 


30 


CALL 


#D5 


40 


OR 


A 


50 


RET 


Z 


60 


LD 


B,0 


70 


LD 


C,-2 


80 


CP 


2 


90 


JR 


C.EXIT 


100 


LD 


B,2 


110 


JR 


Z.EXIT 


120 


LD 


C, 0 


130 


CP 


4 


140 


JR 


C.EXIT 


150 


LD 


C.2 


160 


JR 


Z.EXIT 


170 


LD 


B,0 


180 


CP 


6 


190 


JR 


C.EXIT 


200 


LD 


B.-2 


210 


JR 


Z.EXIT 


220 


LD 


C,0 


230 


CP 


7 


240 


JR 


Z.EXIT 


250 


LD 


C,B 


260 BXIT: 


LD 


HL, (44998) 


270 


LD 


A, L 


280 


ADD 


A,C 


290 


LD 


L, A 



Para unir la rutina al programa de mo- 
vimiento, deberéis teclear un pequeño 
cargador de líneas DATA: 



10 GOSUB330 

7 0 '########### c.M. 

############# 

80 DEFUSR1=45000! : A=USR 

1(0) 

90 X=PEEK (44999 ! ) : Y=PEE 
K( 44998! ) : GOTO60 
330 FORH=44998 ! TO45057 ! 
: READVS 

340 POKEH, VAL("&H" +VS) : 
350 S=S+VAL ( " &H" + V$ ) : líE 
XT 

360 IFSO5077THENBEEP: C 
LS:PRINT"HAY UN ERROR 
370 DATA5C, 7C, AF, CD, D5, 
00, B7, C8, 06, 00, OE, FE, FJE 
, 02, 38, 1F, 06, 02, 28, IB, 0 
E, 0 0, FE, 04, 38, 15, OE, 02, 
28, 11, 06, 00, FE, 06, 38, OB 
, 06, FE, 28, 07, 0E, 00, FE, 0 
7, 28, 01, 48, 2A, C6, AF, 7D, 
81, 6F, 7C, 80, 67, 22, C6, AF 
, C9 

380 RETURN 



Una vez completos los cuatro métodos 
de lectura de los puertos de los joys- 
ticks, dispondréis de la posibilidad de 
comprobar cada uno de ellos indepen- 
dientemente, con sólo intercalar unos 
REMs donde convenga en cada mo- 
mento. Por otra parte, es igualmente 
factible construir un gestor que se en- 
carge de seleccionar uno a uno los dis- 
tintos sistemas. 

Habréis notado que las variables que 
controlan la posición del SPRITE fluc- 
túan siguiendo un paso de dos unida- 
des. En la práctica, suelen emplearse 
incrementos mayores, pero ha de te- 
nerse en cuenta que normalmente es 
necesario comprobar otras cosas que 
gastan, también, una buena cantidad de 
tiempo de proceso (el estado del dispa- 
rador, las colisiones entres figuras mó- 
viles, que el SPRITE no salga de la pan- 
talla, etc.). 
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Programa ^^^—m—m—m^—— Por Antonio Verdú 



Este juego consiste en llevar 
una llave a los casilleros que 
se encuentran en cada liana 
por la que tiene que trepar 

ñW W*\ M I P% Key. Es un programa corto y 

K H Y I sencillo, a la vez que entrete- 



nido. 



1 =• *********************** 

2 ' *** KEY UP *** 

3 '***POR ANTONIO VERDU*** 

4 '*** PARA MSX CLUB *** 

10 SCREEN 0:CLS 

20 COLOR 13, 1 , 1 : PR I NT : W I DTH 40: KEY 
OFF : CLEAR 600:DEFINT X,Y,V,H,M 
30 A*= "*#### 

^mí^mt**** u iFOR 1 = 1 T 0 23 : LOCATE 0 

, I:PRINTA*:NEXTI 

40 COLOR 6: LOCATE 14, 5: PRINT 

mmmmmm" : LOCATE 14,6: PR I NT " m 

m" : LOCATE 1 4 , 7 : PR I NT " — iniiiiiiii ■ 

50 COLOR 6 : LOCATE 11, 18: PR I NT " ■hbühsuüh 
MMMMHMDlATE 1 1 , 19: PRINT"» 
■": LOCATE 11,20:PR 
I N T 1 1 ■HMMHH 1 1 

60 LOCATE 17, 6: PRINT "KEY UP": LOCATE 
18, 12: PRINT "POR" s LOCATE 14, 19:PRIN 
T"Ir~IGO IRIZAR":FORI=1TO650:NEXTI 
70 F0RI=1T023:PRINT:NEXTI 
80 WIDTH 25: COLOR 7: PRINT "Use los 
mandos del teclado para mover su na 
ve por abajo o para subir a las lia 
ñas. Para esto ultimo primero pulse 
space para empezar a subir" 
90 PRINT 

100 PRINT " También puede saltar de 
liana a liana con la barra espacia 

dora pulsando siempre en el teclado 
el lado al que se va a saltar." 

110 PRINT 

120 PRINT " Su objetivo es coger un 
a llave del circulo rojo superponie 
ndose en él y presionando space, y s 
ubirla a los cuadros blancos de arr 
iba, nueve veces" 
130 PRINT 

140 PRINT "PRESS SPACE" 

150 Y=RND(1):IF STRIG<0>=0 THEN GOT 

O 150 



160 DIM X*(12) 

170 OREN "GRP: " FOR OUTPUT AS #1 

180 SCREEN 2,2:CLS 

190 R-3: COLOR , ,1:J=5:G=0 

200 ON STRIG GOSUB 760 

210 ON SPRITE GOSUB 1190 

220 ON STOP GOSUB 1540 

230 CB=INT(RND<1> *12>+2: IF CB=6 THE 

N 230 

240 SPR I TE* ( 4 ) =CHR* ( ScH0 ) +CHR* ( &M0 ) + 
CHR* ( &H0 ) +CHR$ ( &HE5 ) +CHR* ( ?<HBF ) +CHR 
* (S<HE0) +CHR* (?<H0) +CHR* ( ?<H0) 
250 RT=0 

260 FOR N=l TO 12 STEP 2 
270 FOR 1=1 TO 16 
280 READ A 

290 X$ (N) =X$ <N) +CHR$ (A) 
300 READ A 

310 X*(N+1)=X*<N+1)+CHR*(A) 
320 NEXT I 

330 SPR I TE* <RT) =X$ (N) + X* ( N+ 1 ) 
340 IF RT=0 THEN RT=5 ELSE RT=RT+5 
350 NEXT N 
360 * 

370 STOP ON 

380 FOR I'/.= l TO 250 STEP 26 
390 LINE (I7.--l,0)-<IV.+2, 177) ,CB„BF 
400 L I NE (1 7.-4 , 0 ) - ( I V.+4 , 10) , 15, BF 
410 NEXT 17. 

420 LINE (8,0) -(255, 192) ,CB,B 

430 LINE (0,0) -(7, 192) , 1 , BF 

440 PC=100: CIRCLE ( PC , 1 86 ) , 4 . 5 , 6 : PA 

I NT ( PC , 1 86 ) , 6 : C=9 : GOSUB 1 060 

450 X=l 10: Y=174: 01=0: 02=25 

460 ' Juego 

470 PUT SPR I TE 3 , ( X +5 , Y-9 ) , 1 0 , C 

480 PUT SPRITE 0 , ( X , Y ) , 15,01 

490 SOUND 0„0:SOUND 1,0:SOUND 2,0:S 

OUND 3,1: SOUND 4,0: SOUND 5,0 

500 SOUND 6 , 255 : SOUND 7 , ?<B 1 0111 000 

510 SOUND 8,16: SOUND 9, 16: SOUND 10, 

16 

520 SOUND 11,0: SOUND 12,8: SOUND 13, 
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14 

530 D=3TICK(0) 

540 IF DO0 THEN GOSUB 650 

550 STRIG(0) ÜN 

560 IF C=4 AND F'OINT ( X+5 , Y-7 ) = 1 5 T 
HEN GOSUB 930 

570 PUT SPRITE 4, (H-W, V-P) , 7, 5 
580 PUT SPRITE 2, (l-l, V+T) ,7,5 
590 PUT SPRITE 1 , ( -H, V) ,7, 10 
600 H=H-R:M=M+2 

610 PUT SPRITE 5, (M, 174) , 10, 15 
620 SPRITE ÜN 
630 GOTO 470 

640 " Movimiento del muñeco 

650 IF POINT (X+8,Y+2)=CB THEN 670 

ELSE 660 

660 GOTO 700 

670 IF D=l THEN Y=Y-3:SWAP 01,02 
680 IF D=5 THEN Y=Y+3:SWAP 01,02 
690 IF YO 12 THEN Y=12 
700 IF POINT (X+8,Y+1)=1 THEN 710 E 
LSE 750 

710 IF D=3 THEN X = X+3 
720 IF D=7 THEN X = X-3 
730 IF XO240 THEN X=10 
740 IF XO10 THEN X=142 
750 RETURN 

760 ? Salto lateral y a liana 

770 IF Y OI 74 THEN Y=172 

780 IF POINT (X + 9, Y+15) =6 THEN C=4 

790 IF D<>3 AND D<>7 THEN RETURN 

800 IF Y>169 THEN RETURN 

810 IF |0*3 THEN SL=2 

820 IF D=7 THEN SL=~2 

830 HS=25 

840 FOR 1=1 TO 13 

850 X=X+SL:H=H~R/2:M=M+1 

860 PUT SPRITE 0 , ( X , Y ) , 15 , HS 

870 FUT SPRITE 4, (H~W, V-P) ¡,7,5 

880 PUT SPRITE 2 , ( H , V+T ) , 7 , 5 

890 PUT SPRITE 1 , < -H , V ) , 7 , 10 

900 PUT SPRITE 5, (M, 174) , 10, 15 

910 PUT SPRITE 3, (X+5, Y-9) , 10, C 

920 IF X>248 OR X<10 THEN GOSUB 120 

0 

930 IF H5-25THEN HS=20 ELSE HS=25 

940 NEXT I 

950 RETURN 

960 7 Llave puesta 

970 5TRIGÍ0) OFF 

980 LINE (X-2, Y~4)-(X+12, Y-15) , 1 , BF 
990 LINE (X+6,Y-3)~(X+9,Y-14) , CB,BF 
1000 G=G+100: LI=LI+1 

1010 IF LI=9 THEN CLS: LI=0: v"P=VP-8: 
GOSUB 1130: GOSUB 380 

1 020 C I RCLE PC , 1 36 ) , 4 , 1 : P A I NT < PC , 
184) , 1 



1 030 PC= I NT ( RND ( 1 ) #220 ) +20 

1040 CIRCLE (PC, 186) ,4,6:PAINT (PC, 

184) , 6 

1050 R=R+1:C=9 

1060 H=INT (RND ( 1 ) *245) +7 

1 070 V= I NT ( RND ( 1 ) * 1 00 ) +25 

1 080 W= I NT ( RND ( 1 ) * 1 00 ) + 1 8 

1090 F-INT (RND ( 1 ) *50) +20 

1100 T=INT (RND ( 1 ) #40) +18 

1110 IF V+T>=160 THEN T— T 

1120 RETURN 

1130 Nueva pantalla 

1140 CB=INT(RND(1) *12)+2 

1 1 50 COLOR 1 5 : PSET ( 1 00 , 1 00 ) : PR I NT# 1 

, "PUNTUACION: " ; G 

1160 J=J+1 : PSET ( 100, 110) :PRINT#1, "N 
AVES: J 

1170 FOR I==l TO 500: NEXT I : CLS 

1180 RETURN 

1190 ' Explosión 

1200 SPRITE OFF:STRIG(0) OFF 

1210 FOR 1=1 TO 192 

1220 Y=Y+10 

1230 PUT SPRITE 0,(X,Y),6,O2 

1240 PUT SPRITE 4 , ( H-W , V-P ) ,0,5 

1250 PUT SPRITE 2 , ( H , V+T ) , 0 , 5 

1260 PUT SPRITE 1,(-H,V),0,5 

1270 IF Y>=174 THEN 1310 

1280 PUT SPRITE 3, ( X+5, Y-9) , 10, C 

1290 SOUND 0,50:SOUND 1 , 1 : SOUND 7,2 

46:S0UND 3,8 

1300 NEXT í 

1310 J=J-1:IF J=0 THEN GOTO 1440 
1320 PSET ( 108, 100) ,CB:C0L0R 15:PRI 
NT #1,J 
1330 BEEP 

1340 SOUND 0,0: SOUND 1,5: SOUND 2,0: 
SOUND 3, 13: SOUND 4, 255: SOUND 5,15:S 
□UND 6,30 
1350 SOUND 7,0 

1360 SOUND 8, 16: SOUND 9, 16: SOUND 10 
,16:S0UND 11,0:SOUND 12,5:S0UND 13, 
1 1 

1370 FOR 1=1 TO 30: NEXT I 

1380 SOUND 12, 56: SOUND 13,0 

1390 FOR 1=1 TO 530: NEXT I 

1400 X=INT(RND(1) *235>+10: Y=174 

1410 PSET ( 108, 100) : COLOR 1:PRINT # 

1, J 

1420 RETURN 460 
1430 " Final partida 

1440 LINE (80, 150) -(240, 165) , 1,BF:P 
SET ( 100, 160) : COLOR 15: PRINT#1 , "PUN 
TUACION: " ; G 

1 450 LINE ( 0 , 70 ) - ( 250 ,85) , 1 , BF: PSET 

(0,80) : COLOR 13:PRINT#1, " 

PRESS SPACE " 
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1460 Y=RND ( --T I ME ) : I F STR I G ( 0 ) =0 THE 

N GOTO 1460 

1470 BEEP 

1480 RUN 1490 

1490 ? Nueva partida 

1500 SCREEN 1 

1510 PRI NT "PRESS SPACE" 

1520 Y=RND (TIME) : IF STRIG<0>=0 THEN 

1520 ELSE 160 
1530 END 
1540 ■ Stop 
1550 CLSaBEEP 

1560 FÜR 1=0 TO 5:PUT SPRITE 1,(0,0 
),0,13:NEXT I 

1570 LINE ( 125,0) -(128, 190) ,CB,BF 

1580 FÜR 1=2 TO 7 

1590 READ CM-.READ S 

1600 FÜR Y=l TO 192 STEP 2 

1610 PUT SPRITE 0, (120, Y) ,S,CM 

1620 NEXT Y, I 

1630 SCREEN 0:WIDTH 40: END 

1640 ? Datas de sprites 

1650 DATA 3,192,3,192,3,192,3,192,6 

3,248, 127,252,239,238,231,206, 119,2 

20,63,252,31,240,7, 192,6, 192, 12,96, 

12,96,60, 120 

1660 ' 

1670 DATA 0,0,0,126,0,191,1,66,2,13 
2,29,8,54,28,254,2,63,255,95,254,7, 
252,3,252,0, 136,0, 136,3, 184,0,0 
1680 ' 

1690 DATA 0,0,126,0,213,0,66,128,33 
, 64 , 1 6 , 1 84 , 56 , 1 08 , 64 , 1 27 , 255 , 252 , 1 2 
7,250,63,224,63, 192, 17,0, 17,0,29, 19 
2,0,0 

1700 ' 

1710 DATA 0,0,0,0,0,0,0,0,2,32,2,32 
, 18,38,27,234,85,85, 127,251,94,61,8 
5,217,91,229,88,37,84,73,82, 145 

1720 ' 

1730 DATA 3,192,3,192,3,192,3,192,3 
1 , 248, 63, 248, 103, 204, 199, 198, 7, 192, 
1 35 , 1 94 , 255 , 254 , 254 , 254 , 0 , 0 , 0 , 0 , 0 , 0 
, 0 , 0 
1740 * 

1750 DATA 3,192,27,216,51,216,99,20 
4, 127,252,63,248, 15,224, 7, 192,7, 192 
,7, 192,23,208,63,248,48,24, 112, 14,0 

1 6*0*0 

1760 ? 

1770 DATA 0,15,5,7,10,7,25,15,20,15 
,15,11 
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■ Key upa 


1-58 5-58 

2 - 58 10 -175 

3 - 58 20 -150 


40 -143 
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60 - 9 





UN LIBRO 
PENSADO PARA 
TODOS LOS 
QUE QUIEREN 
INICIARSE DE 
VERDAD 
EN LA 

PROGRAMA- 
CION BASIC 

Construcción de 
programas. El potente 
editor todo pantalla. 
Constantes numéricas. 
Series, tablas y 
cadenas. Grabación de 
programas. Gestión de 
archivo y grabación 
de datos. Tratamiento 
de errores. Los 
gráficos del MSX. 
Los sonidos del MSX. 
Las interrupciones. 
Introducción al 
lenguaje máquina. 



Y ADEMAS PROGRAMAS DE EJEMPLO 

Alfabético. Canon a tres voces. Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. La Flauta Mágica de Mozart. 
Scrapple from the apple & Donna Lee. The entretainer. Teclee un 
número. Calendario perpetuo. Modificación Tabla de colores 
SCREEN 1 . Rectángulos en 3-D. Juego de caracteres alfabéticos en 
todos los modos. Juego Matemático. Más grande más pequeño. 
Poker. Breackout. Apocalypse Now. El robot saltarín. El archivo 
en casa. 








Deseo me envíen el libro de los secretos del MSX, para lo 
cual adjunto talón de 1.500 ptas; a la orden de MAN- 
HATTAN TRANSFER, S.A. 

Nombre y apellidos 

Calle n.° 

Ciudad CP 

Este boletín me da derecho a recibir los secretos MSX en 
mi domicilio libre de gastos de envío o cualquier otro 
cargo. No se admite contrareembolso. 

Importante: Indicar en el sobre MANHATTAN 
TRANSFER, S.A. 

«LOS SECRETOS DEL MSX» 

Roca i Batlle, 10-12 Bajos - 08023 BARCELONA t 
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CAZA PIRATAS 



Fomenta la creatividad. Respeta el dere- 
cho de autor. Centenario de la conven- 
ción de Berna 1886-1986. 



Condiciones: 

Toda denuncia para esta sección deberá venir suscripta con 
los datos personales del denunciante, aunque su nombre no 
aparecerá publicado. 

— Deberá aportarse toda documentación que acredite el 
objeto de la denuncia, de lo contrario no se tendrá en cuenta. 

— La documentación recibida se hará llegar a la marca afec- 
tada para que tome las medidas jurídicas oportunas. 

— Una vez publicada la denuncia, ya no se tendrán en cuen- 
ta las que lleguen posteriormente sobre el mismo programa. 

— Los denunciantes recibirán como recompensa el progra- 
ma original denunciado. 

— Recordamos que se considera piratería la desprotección y 
copia de programas en cualquier formato y su uso con fines 
de lucro. 




AIR MISSION editado en cassette por 
STAR MSX es presuntamente una copia 
del programa RIVER RAID de Activi- 
sion, comercializado por Proein, S.A. y 
Philips. 
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1. °- Podrán participar todos nuestros lectores 
cualquiera sea su edad. 

2. °— Los programas se clasificarán en tres cate- 
gorías: 

Educativos 
Gestión 

Entretenimiento 

3. °- Los programas deberán ser remitidos gra- 
bados en cassette debidamente protegidas, den- 
tro de su estuche de plástico. 

4. °- No entrarán en concurso aquellos progra- 
mas que ya hayan sido publicados por otros 
medios o plagiados. 

5. °- Junto a los programas se incluirán las ins- 
trucciones correspondientes, detalle de.las varia- 
bles, ampliaciones posibles y todos aquellos co- 
mentarios que el autor considere de interés. 

6. °- Todos los programas han de estar estruc- 
turados de modo claro, separando con REM los 
distintos sectores del mismo. 



PREMIOS 

7. °- MSX CLUB OTORGARA LOS SI- 
GUIENTES PREMIOS: 

TOYSTICK DE ORO MSX CLUB Y UNA 
UNIDAD DE DISCO AL MEJOR PROGRA- 
MA DEL AÑO 

Además mensualmeme se premiarán los pro- 
gramas publicados del siguiente modo: 

10.000 pts. los programas Educativos 

10.000 pts. los programas de Gestión 
6.000 pts. los programas de Entretenimiento 

8. °- MSX CLUB DE PROGRAMAS se reser- 
va el derecho de publicar fuera de concurso 
aquellos programas de reducidas dimensiones 
que sean de interés, premiando a sus autores. 



FALLO Y JURADO 

9.°- El Departamento de Programación de 
MSX CLUB DE PROGRAMAS hará la primera 
selección de la que saldrán los programas publi- 
cados en cada número de la revista. 

10. °- Los programas no se devolverán salvo que 
así lo requiera el autor. 

11. °- La elección del PROGRAMA DEL AÑO 
se hará por votación de nuestros lectores a través 
de un boletín que se publicará en el mes de octu- 
bre de 1986. 

12. °- El plazo de entrega de los programas finali- 
zará el 3 1 de octubre de 1986. 

13. °- El fallo se hará conocer en el número de di- 
ciembre de 1986, entregándose los premios en el 
mismo mes. 




Remitir ; 



MI PROGRAMA 

10-12, bajos 08023 Barcelona 




Prepárate pues 
estamos 

trabajando en un 
número especial 
con todo el 

SOFTWARE MSX del 

mercado español. 
Y también 
noticias, 
novedades, 
comentarios y un 
largo etcétera que 
harán de este MSX 

CLUB ESPECIAL 

software algo 

FUERA DE SERIE. 
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MUSIC COMPUTER 

Sos/asna] 



LAS BUENAS COMPAÑIAS 
DE UN MSX 

PROFESIONAL 
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A MITSUBISHI 
COMPUTER SYSTEM 




??SB 8B BBI IB íB VB 



ML-FX1/2 □ 

El MSX profesional 

80 Kb RAM. 

Teclado Numérico. 

ML-FX2 Programa MAP (B. Datos/ 

P. Textos / H. Cálculo Gráficos/ 

Comunicaciones. 

ML-30FD □ 

La Máxima capacidad en disco. 
1 Mb. (720 Kb. Formateado) 
8 Formatos diferentes 
Chasis previsto para 2 unidades. 



ML-10 DR □ 

Cassette especial para ordenador. 
Admite 1200/2400 baud. 
Cuentavueltas. Señal de monitor. 
Alimentación a red o baterías. 

ML-10 MA □ 

Ratón para diseño gráfico. 
Programa CHEESE de diseño. 
24 Funciones gráficas. 



APLICACIONES □ 

Un Software profesional para un 
ordenador profesional. Contabili- 
dad, Control de Stock, Factura- 
ción. 

CT-1501E □ 

Monitor/Televisión. 
Alta definición. 
Conector SCART. 
Mando a distancia. 



CUPON DE RESPUESTA 



Desearía poder tener más 
información sobre los aparatos 
marcados H de MITSUBISHI. 



MABEL, S.A. 

P° Maragall. 120 - 08027 BARCELONA 



